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SUMMARY 


This  report  describes  a Phase  A performance-analysis  computer  program, 
HILTOP,  that  has  been  developed  explicitly  to  generate  optimum  electric  propul- 
sion trajectory  data  for  missions  of  interest  in  the  exploration  of  the  solar  system. 
HILTOP  is  a double-precision,  FORTRAN  rv,  IBM  360  production  program  which 
is  primarily  designed  to  evaluate  the  performance  capabilities  of  electric  propul- 
sion systems  and  which  may,  in  the  hands  of  a skilled  analyst,  perform  efficiently 
in  the  simulation  of  a wide  variety  of  interplanetary  missions.  HILTOP  uses  nu- 
merical integration  of  the  two-body,  three-dimensional  equations  ol  motion  and 
the  Euler- Lagrange  equations.  It  contains  transversality  conditions  which  permit 
the  rapid  generation  of  converged  maximum -payload  trajectory  data,  and  allows 
the  optimization  of  numerous  other  performance  indices  for  which  no  transversa- 
lity conditions  are  included.  In  addition  to  optimizing  the  thrust  direction  and  on- 
off  switch  times,  other  significant  performance  parameters  that  can  be  optimized 
are  jet  exhaust  speed,  power  level,  hyperbolic  excess  speeds,  launch  asymptote 
geocentric  declination,  flight  time  and  launch  date.  The  ability  to  simulate  con- 
strained optimum  solutions,  including  trajectories  having  specified  propulsion  time 
and  constant  thrust  cone  angle,  are  also  optionally  available.  The  program  is  de- 
signed to  handle  multiple -target  missions  with  various  types  of  encounters,  such  as 
rendezvous,  stopover,  orbital  capture,  and  flyby.  Performance  requirements  for 
a variety  of  launch  vehicles  may  be  determined.  The  documentation  includes  problem 
formulation,  program  usage  specifications,  sample  problems,  and  detailed  subroutine 
descriptions. 
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NOMENCLATURE 


Generally,  upper-case  symbols  denote  vectors  and  lower-case  symbols 
denote  scalars.  Lower-case  symbols  with  bars  denote  unit  vectors.  The  abbre- 
viations EPS  for  electric  propulsion  system  and  BVP  for  boundary  value.problem 
are  used. 


EPS  instantaneous  thrust  acceleration;  semi-major  axis 
Semi-major  axis  of  primary-target  capture  orbit 
Solar  power  law  coefficients 

Arbitrary  unit  vectors  used  in  (132)  and  (139) 

A coefficient  in  the  efficiency  law 

Launch  vehicle  coefficients 

Vector  constant  of  optimal  rocket  problem,  expression  (63) 
Radians-to-degrees  conversion  factor 
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EPS  jet  exhaust  speed  (constant);  abbreviation  for  cosine  function 

Retro  stage  jet  exhaust  speed 

Auxiliary  quantity  given  by  expression  (74) 

. Coefficients  in  quadratic  expression  for  Av^,  expression  (78). 

A coefficient  in  the  efficiency  law;  an  auzillary  quantity  in  the  coast-phase 
solution;  solar  flux  density 

Eccentric  anomaly  (a  scalar) 
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A coefficient  In  the  efficiency  law;  the  base  of  the  natural  logarithms; 
eccentricity;  subscript  denoting  Earth 

Spacecraft  unit  angular  momentum  vector 

Spacecraft  unit  radius  vector 

EPS  unit  thrust  vector 

Spacecraft  unit  velocity  vector 

Retro  stage  characteristic  speed  exponential  factor  given  by  expression  (76) 
Unit  primer  vector 

Auxiliary  scalar  function  defined  by  (215) 

EPS  Instantaneous  thrust  magnitude ; f-functlon  of  the  f and  g series ; 
subscript  denoting  a desired  value;  true  anomaly;  auxiliary  variable  defined 
by  equation  (147) 

Retro  stage  thrust  magnitude 

Auxiliary  quantity  given  by  expression  (77) 

Auxiliary  scalar  functions  in  the  coast-phase  solution,  equation  (45) 

EPS  reference  thrust  acceleration;  g-function  of  the  f and  g series; 

BVP  point-constraint  geometric  mean  of  the  weighting  factors 

Auxiliary  quantity  given  by  expression  (97) 

Spacecraft  angular  momentum  vector 

Magnitude  of  spacecraft  angular  momentum  vector 

Spacecraft  unit  angular  momentum  vector 

Variational  Hamiltonian 

Cartesian  components  of  spacecraft  angular  momentum  vector 
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h^  Thrust-switching  step-function 

l Subscript  pertaining  to  an  intermediate  target;  inclination  to  ecliptic; 

general  subscript  or  running  index;  inclination  of  parking  orbit  about 
Earth 

7 Unit  vector  along  x-axis 

l Parking  orbit  inclination  associated  with  range  safety  limit 

max 

J Index-set  of  the  BVP  dependent  variables 

j Unit  vector  along  y-axis 

1 Unspecified-reference-power  indicator 

P 

4 EPS  propulsion  system  jettison  indicator  (retro  maneuver) 

PS 

j Retro  stage  existence  indicator 

j EPS  tankage  jettison  indicator  (retro  maneuver) 

k Arbitrary  positive  constant  associated  with  performance  index;  temporary 
variable  ultimately  equated  to  inverse  of.  the  characteristic  degradation 
time 

•k  Unit  vector  along  z-axis 

k Auxiliary  quantity  given  by  expression  (75) 

c 

k Intermediate -target  drop-mass  factor  defined  by  expression  (6) 
drop 

k Retro  stage  tankage  mass  factor  defined  by  expression  (11) 
rt 

k EPS  structure  mass  factor  defined  by  expression  (8) 

S 

k Intermediate-target  sample-mass  factor  defined  by  expression  (6) 
samp 

k^  EPS  tankage  mass  factor  defined  by  expression  (7) 

L Launch  site  latitude  (scalar) 

M Mean  anomaly  (scalar) 
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Coefficients  used  in  computing  nuclear  and  total  magnitudes  of  a celestial 
body  (scalars) 


Nuclear  magnitude  (scalar) 

Total  magnitude  (scalar) 

Spacecraft  total  mass  variable 

Auxiliary  unit  vector  given  by  expression  (32) 

Intermediate -target  drop-mass  given  by  expression  (6) 

Net  spacecraft  mass 

Initial  spacecraft  mass  (payload  of  launch  vehicle)  given  by  expression  (2) 
EPS  propellant  mass 

Electric  propulsion  system  mass  given  by  expression  (4) 

Retro  stage  mass 

Retro  stage  propellant  mass  given  by  expression  (9) 

Retro  stage  structure  mass  defined  by  expression  (11) 

Retro  stage  structure  and  tankage  mass  given  by  expression  (11) 

EPS  structure  mass 

Intermediate-target  sample-mass  given  by  expression  (6) 


samp 

EPS  tankage  mass 

Am  Propellant  mass  increment  due  to  primary-target  spiral  maneuver 
P 

n Exponent  In  step-size  law,  expression  (39) ; subscript  denoting  time  at 
the  primary  target;  number  of  BVP  dependent  variables 
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Unit  vector  normal  to  the  solar  arrays 

Unit  vector  directed  along  a planet's  north  pole 

Subscript  denoting  launch  time ; subscript  denoting  the  beginning  of  a 
computation  step 

A celestial  body's  position  vector;  BVP  partial  derivative  matrix 

EPS  instantaneous  power;  subscript  denoting  a perturbed,  or  neighboring, 
parameter;  auxiliary  variable  in  equations  (79) 

Ratio  of  housekeeping  to  reference  power,  p^/p^ 

Total  instantaneous  power  developed  by  arrays 

Housekeeping  power 

EPS  reference  power 

Auxiliary  quantities  in  coast-phase  solution,  expressions  (54)  and  (55) 

Auxiliary  variable  in  equations  (79);  solar  array  radiation  damage  factor 
Spacecraft  position  vector 
Magnitude  of  R 

Primary-target  capture-orbit  apocenter  distance 
Earth-to-spacecraft  communication  distance 
Unit  vector  along  line  of  ascending  node 

Primary-target  capture-orbit  perlcenter  distance;  primary-target  swingby 
passage-distance 

Swingby  passage -distance  unit  vector 

Value  of  r for  which  y-curve  Is  at  a maximum 

Abbreviation  for  sine  function;  auxiliary  variable  used  In  equations  (79); 
degradation  time 
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Unit  vector  directed  toward  Canopus 
Time 

Retro  maneuver  bum  time  given  by  expression  (12) 

Time-increment  due  to  primary-target  spiral  maneuver 
Generalized  universal  anomaly  during  thrust  phases 

Generalized  universal  anomaly  increment,  equivalent  to  the  computation 
step-size  during  numerical  integration 

Magnitude  of  spacecraft  velocity 

Characteristic  speed  of  a rocket  maneuver 

Escape  speed  from  launch  parking  orbit 

Minimum  velocity  impulse  required  for  non-coplanar  Injection  from  a 
circular  orbit  to  a given  excess  velocity 

Speed  of  a spacecraft  in  a circular  orbit 

Planetocentrlc  speed  at  primary-target  swingby  closest-approach  point; 
auxiliary  speed  given  by  equation  (72) 

Hyperbolic  excess  velocity  (or  encounter  velocity) 

Swingby  planet  arrival  hyperbolic  excess  velocity 

Swingby  planet  departure  hyperbolic  excess  velocity 

Hyperbolic  excess  speed  (or  encounter  speed) 

Retro  stage  Impulsive  velocity  increment  magnitude;  characteristic  velocity 
associated  with  primary-target  spiral  maneuver;  incremental  speed  required 
at  powered  swingby 

Retro  stage  total  velocity  increment  magnitude 

Minimum  Incremental  velocity  (magnitude)  for  coplanar  boost  out  of 
circular  orbit 

Velocity  penalty  due  to  noncoplanar  boost  out  of  circular  orbit 
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Velocity  penalty  due  1" j launch  azimuth 
Auxiliary  variable  in  equations  (79) 

First  Cartesian  component  of  position;  a general  variable;  a general 
state  variable;  auxiliary  variable  In  equations  (79) 

Second  Cartesian  component  of  position;  auxiliary  variable  in  equations  (79) 
Third  Cartesian  component  of  position 

EPS  specific  mass;  geocentric  right  ascension  of  launch  excess  velocity 

Auxiliary  parameters  defined  by  equations  (211)  and  (212) 

Specific  mass  of  the  solar  arrays 
Communication  angle  (Sun-Earth-spacecraft) 

Specific  mass  of  the  power  conditioning  and  thruster  subsystem 

Arbitrary,  independent  angles  defining  orientation  of  excess  velocity  in 
(132)  and  (139) 

Independent  variable  of  coast-phase  solution,  also  generalized  to  be  the 
independent  variable  on  the  entire  trajectory 

Value  of  /3  at  the  beginning  of  a computation  step 

Computation  step  size  (increment  of  trajectory  independent  variable) 

Normalized  power  function 


V' 


y* 
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3y/dr 

dy /3d,  where  d is  the  solar  flux  density 

Launch  hyperbolic-excess-velocity  asymptote  declination;  BVP  dependent- 
variable  tolerance 

Bend  angles  of  hyperbolic  arrival  and  departure  trajectories,  expression  (213) 


xv 


I 


Total  bend  angle  given  by  expression  (214) 

Krone cker  delta  function 

Auxiliary  quantity  in  the  coast-phase  solution;  obliquity  of  the  Earth 
equator  to  the  ecliptic 

EPS  efficiency 

d7)/dc 

In-plane  thrust  angle 

( 

Travel  angle  increment 
Travel  angle 

Primer  vector  (adjoint  to  spacecraft  velocity) 

Magnitude  of  A;  a general  adjoint  variable;  the  iterator  Inhibitor 

Adjoint  variable  associated  with  jet  exhaust  speed 

Adjoint  variable  associated  with  reference  thrust  acceleration 

Adjoint  variable  associated  with  degradation  time 

Thrust  cone  angle  Lagrange  multiplier 

Adjoint  variable  associated  with  mass  ratio 

Adjoint  variable  associated  with  propulsion  time 

Adjoint  variable  associated  with  thrust  cone  angle 

Gravitational  constant  of  the  sun;  a general  gravitational  constant 

Gravitational  constant  of  the  primary  target 

Mass  ratio 

Mass  ratio  increment  at  an  intermediate  target 
Performance  index;  ratio  of  circle  circumference  to  diameter 
Partial  derivative  of  n with  respect  to  arbitrary  variable  x. 


p Auxiliary  variable  used  in  equations  (79) 
a Thrust  switch  function 

a*  Special  form  of  thrust  switch  function,  given  by  equation  (186) 

a Portion  of  total  thrust  switch  function,  given  by  (193) 

r 

Aa  Propulsion-corner-proximity  tolerance-interval 

T EPS  propulsion  time 

T.  Characteristic  degradation  time 

d 

$ Transformation  matrix  for  rotating  from  ecliptic  to  equatorial  coordinate 
system 

0 Thrust  cone  angle  (between  thrust  and  radius) 

X Angle  between  normal  to  solar  arrays  and  the  spacecraft-sunline 
ip  Out-of-plane  thrust  angle 

Q Longitude  of  ascending  node  of  an  orbit 

co  Angular  position  from  the  ascending  node  of  an  orbit  to  the  spacecraft; 
argument  of  perifocus  of  an  orbit 
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VI. 


SUBROUTINE  DESCRIPTIONS 


In  this  section  are  presented  detailed  descriptions  of  every  subroutine 
of  the  HILTOP  program.  The  descriptions  are  given  in  alphabetic  order  of  the 
subroutine  name.  Entry  points  are  not  described  separately,  but  are  included 
in  the  description  of  the  primary  subroutine.  Each  description  is  comprised 
of  the  following  sections: 


1) 

2) 

3) 

4) 

5) 

6) 

7) 

8) 
9) 

10) 

ID 


Name  of  subroutine. 

List  of  calling  arguments. 

List  of  sub-programs  referenced  by  the  subroutine  being  described. 
List  of  commons  referenced  by  the  subroutine. 

Entry  points  in  the  subroutine. 

List  of  sub-programs  referencing  the  subroutine  being  described. 
Detailed  discussion  of  pertinent  equations  and  logic. 

Description  of  printout  and  messages  generated  by  the  subroutine. 
List  of  any  documents  referenced  in  the  Discussion. 

Table  of  external  variables  used  by  the  subroutine. 

Detailed  flow  chart  and  list  of  non-executable  statements. 


Items  8 and  9 are  included  only  if  applicable. 

The  table  of  external  variables  include  for  each  variable  listed  the  Fortran 
name,  the  use  of  the  variable,  the  name  of  the  common  array,  if  any,  in  which  the 
variable  appears,  and  a definition  of  the  variable.  The  variables  included  in  this 
table  include  only  those  referenced  within  the  subroutine  which  are  available  for 
use  in  other  routines;  e.g. , common  variables  or  variables  contained  in  argument 
lists.  Temporary  variables  which  are  evaluated  in,  and  not  transmitted  out  of,  the 
subroutine  are  not  listed.  For  any  array  included  in  the  table,  the  dimension  of 
the  array  is  enclosed  in  parentheses  beside  the  Fortran  name.  The  use  of  the 
variable  is  indicated  by  one  or  more  of  five  alphabetic  codes,  which  are  defined 

as  follows: 


A - the  variable  appears  in  the  argument  list 'of  a sub-program  called 
by  the  subroutine. 

E - the  variable  is  equivalenced  to  a common  variable. 

S - the  value  of  the  variable  is  changed  and  stored  within  the  subroutine. 

U - the  value  of  the  variable  is  used  within  the  subroutine;  i.e. , the 
variable  name  appears  on  the  right  hand  side  of  an  equation,  in 
an  IF  statement,  or  in  the  list  of  a WRITE  statement. 

X - the  variable  name  appears  in  the  argument  list  of  the  subroutine  or 
one  of  its  entry  points. 

If  the  variable  represents  a variable  used  in  the  Discussion  section  of  the 
subroutine  description,  the  mathematical  symbol  of  the  variable  is  included  in 
the  definition  of  the  variable. 


Name: 


AEINWT 


Calling  Argument: 


Referenced  Sub-programs: 


MPLAN,  TDATEX,  SAI,  ECI,  CNI,  OMI,  SOI, 
TPI,  EMU  ODD,  RADODD 

DATE1 


Referenced  Commons:  None 


Entry  Points:  None 

Referencing  Sub-programs:  QSTART,  SWING 

Discussion:  The  name  AEINWT  is  pronounced  "a,  e,  i,  node,  omega,  t"  and 
stands  for  the  six  standard  elements  which  define  the  motion  of  a body  in  its 
orbit:  a,  e,  i,  ft,  oo,  t , which  are  semi-major  axis,  eccentricity,  inclina- 
tion, node  angle,  argument  of  perifocus,  and  time  of  perifocus  passage,  where 
perifocus  is  perihelion  in  this  program.  These  elements  are  defined  with  res- 
pect to  the  standard  ecliptic  coordinate  system  referenced  at  various  times  in 
the  twentieth  century,  mostly  in  the  second  half  of  the  century,  depending  on 
the  celestial  object  under  consideration.  The  reference  dates  are  given  by  the 
MDY  array  ("Month,  Day,  Year"),  which  happen  to  be  the  perihelion  passage 

times  t . The  elements  and  reference  dates  are  considered  to  be  sufficiently 
P 

accurate  for  the  Phase  A type  of  analyses  for  which  this  program  is  intended. 
The  analyst  should  improve  the  a,  e,  i,  fl,  w,  t values  for  his  particular 
celestial  target,  or  add  new  target  element  values,  as  he  requires.  The  ele- 
ment values  are  fed  into  subroutine  EFM. 


The  purpose  of  AEINWT  is  to  procure  the  desired  orbital  elements  from 
the  DATA  arrays  and  load  them  in  locations  used  by  the  program.  The 
COMMENTS  interspersed  within  the  DATA  arrays  in  the  source  listing  are 
sufficient  to  define  the  contents  of  the  arrays,  i.e. , to  define  the  various 
celestial  targets  available  together  with  their  six  standard  orbital  elements. 
This  routine  contains  the  orbital  elements  of  the  essentially  massless  (except 
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for  Ceres)  celestial  objects  such  as  asteroids  and  comets,  the  elements  of  the 
planets  being  found  in  subroutine  EFM. 


AEINWT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

CNI 

SX 

Inclination  of  orbit  to  ecliptic,  i,  in 
degrees. 

ECI 

SX 

Eccentricity  of  orbit,  e. 

OMI 

SX 

Ascending  node  angle  of  orbit,  C2,  in 
degrees. 

SAI 

SX 

Semi-major  axis  of  orbit,  a,  in  AU. 

SOI 

SX 

Argument  of  perihelion  of  orbit,  co,  in 
degrees. 

TPI 

SX 

Time  of  perihelion  passage  of  object 
in  orbit,  tp,  in  days  elapsed  since  the 
reference  date  TDATEX. 

MPLAN 

ux 

Integer  variable  which  selects  the 
celestial  object  desired. 

EMU  ODD 

1 

SX 

! 

Gravitational  constant  n of  the 
celestial  object,  in  m'Vsec2. 

RAD ODD 

SX 

Radius  of  the  celestial  object,  in 
meters. 

TDATEX 

ux 

1 

Reference  date.  In  Julian  days  less 
2400000,  defined  by  the  program 
! inputs  MYEAR,  MONTH,  MDAY, 

! and  HOUR. 

I 

I 

I 

1 


292 


01,01/rt  Auroriou  cnaat  sct  - c.s.r.c.  nn  top  ofcen«iP  m/i  pact 


o «. 

* ► 

X o 


<r  < 


— C.  >.  V ► k~ 

— — o 

W *^M«^OW  C « 

— * » 

« «.«  « < — 


299 


AEINWT-9  ' 


Name: 


ALBEDO 


Calling  Argument:  MTARG,  TIME,  TARGET,  XREL,  SMAGN,  SMAGT, 

* EMAGN,  EMAGT 

Referenced  Sub-programs:  EFM,  VDOT,  VMAG,  VSUB 

Referenced  Commons:  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  SPRINT 

Discussion:  This  routine  computes  the  photometric  magnitude  of  a given  astro- 
nomical body  as  seen  by  both  the  spacecraft  and  an  observer  on  Earth;  for  comets, 
both  the  nuclear  and  total  magnitudes  are  calculated.  These  magnitudes  may  be 
computed  at  each  computation  step,  as  the  spacecraft  moves  along  the  trajectory. 

The  nuclear  magnitude  (of  comet)  of  the  next  astronomical  body  to  be  en- 
countered along  the  trajectory,  as  seen  by  the  spacecraft,  is  computed  as 

MN  ■ Mo  + “l  1Og10  |R  - Rtarg 1 + M2 1Og10  |Rtarg 1 


+ .03  cos 


Rtarg  ^targ  R*  "|  ^0 
^targ1  |Rtarg-R|  ' 


where  M , M , and  M are  magnitude  constants  associated  with  the  target,  and 
0 1 2 

c°  is  the  radians-to-degrees  conversion  factor.  The  arc-cosine  term  is  the  phase 
angle.  The  total  magnitude  of  the  next  astronomical  body  to  be  encountered  along 
the  trajectory,  as  seen  by  the  spacecraft,  is  computed  as 


MT  = M3  + M4  1Og10  'R  " R 


I + log  \n  | 
targ 1 5 &10  targ 


where  M , M , and  M are  magnitude  constants  associated  with  the  target.  R 
3*  4 5 

Is  the  spacecraft's  instantaneous  position  vector  and  is  the  target's 

Instantaneous  position  vector,  in  AU,  in  ecliptic  coordinates.  The  nuclear  and 


*0* 
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total  magnitudes  of  the  target,  as  seen  by  Earth,  are  obtained  by  substituting 
^earth  ^°r  ^ *n  t^lese  tw0  ^ormu^ae*  Currently,  there  is  a very  limited  set  of 
values  for  the  magnitude  constants  coded  into  the  program. 


ALBEDO  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

DEG 

U 

REAL8 

Radians  to  degrees  conversion  factor. 

TIME 

AX 

Current  time,  in  Julian  date  less 
2400000. 

XREL(3) 

UX 

Target-relative  position  of  spacecraft, 

R - R,  , in  AU  (ecliptic  reference), 

targ 

EMAGN 

SX 

Nuclear  magnitude  of  target  as  seen  by 
Earth. 

EMAGT 

SX 

Total  magnitude  of  target  as  seen  by 
Earth. 

MTARG 

UX 

Target  selector. 

SMAGN 

SX 

Nuclear  magnitude  of  target  as  seen  by 
the  spacecraft. 

SMAGT 

SX 

Total  magnitude  of  target  as  seen  by 
the  spacecraft. 

TARGET  (3) 

UX 

Target  position,  R , in  AU  (ecliptic 

reference).  B 
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w 

o 


c 


V. 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


304 


I 

I 

I 


Name: 


ANSTEP 


Calling  Argument:  DBETA,  GO 

Referenced  Sub-programs:  PRIOR,  SCOMP 

Referenced  Commons:  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  IMPULS,  STEP 

Discussion:  ANSTEP  is  a contraction  of  "analytic  step".  During  any  coast  phase, 
the  two-body  equations  of  motion  and  the  associated  adjoint  equations  are  known  to 
possess  analytic  solutions  obtainable  in  closed  form  with  respect  to  the  universal 
trajectory  independent -variable  & defined  below.  The  particular  form  of  the 
solution  used  in  the  program  is  derived  in  Reference  1 and  is  simply  repeated 
here.  This  solution  employs  a universal  variable,  /3,  defined  implicitly  through 
the  differential  equation 


where  M is  the  gravitational  constant  of  the  attracting  body. 

For  elliptic,  two-body  trajectories,  this  equation  has  the  solution 

/3=  */a  <E  - Eo>, 

where  E is  the  eccentric  anomaly  and  a is  the  semi-major  axis. 


The  problem  to  be  solved  is  that  of  evaluating  the  state  and  adjoint  vari- 
ables at  /3=  /3q  + A/3  given  the  values  of  these  variables  at  This  is 

accomplished  as  follows.  Given  R^  and  R^  (the  state  at  — f$^)  compute 


R 

o 


9 


d 

o 


R 

o 


9 
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2 


a rQ  ^ 1 

« = (A]8)2/a  = (E  - Eq)2  . 


Then,  using  the  truncated  infinite  series  expression 

16 


»i-(W  z 


(2k  + i)!  ’ 


compute  the  functions  G.  (in  subroutine  SCOMP)  for  i = 5 and  4.  Thereafter, 
the  functions  G.,  i - 0,  1,  2,  3 are  computed  from  the  recursion  formula, 


G - 1 


i i!  a i+2  ’ 


and  are  employed  to  evaluate  the  familiar  f and  g functions,  i.e., 


f = 1 - 


g=  ~ (r  G + G ), 

Ju  0 1 Vm  2 


r = r G + 


G +G  , 
1 2 ’ 


t-to  = g+  ’ ‘ 


g 


f = - 


g=1-  T • 


R = fR  +gR  , 
o o 


R =f R +g  R . 
o o 
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which  provide  the  State  and  time  at  the  given  value  of  0--0q  + A0.  g in  this 

subroutine  description  is  not  to  be  confused  with  the  reference  thrust  acceleration 
used  widely  throughout  this  document.  The  corresponding  equations  for  the  adjoint 

variables  are: 

3x.(t)  5x  (t)  # 

x-(t)  = stVi  \ (V + “ Xj  (to)  ’ 
i dx;V  3 9x.  (t  ) 3 

J 3 o 


dx  At)'  ax.(t)  # 

\ /'t'l  = — X.  (t  ) + ■ ^ . (t  ) > 

Xi(t)  8x.(t0>  ) ° a-j(t(>)  J o 

where  i,  j = 1,  2.  3,  and  repeated  subscripts  In  the  same  term  imply  summation 
over  the’ range  of  the  subscripts.  The  variables  x.(t)  represent  the  three 

Cartesian  components  of  the  spacecraft  position  R(t)  while  the  X.(t)  represent 

the  components  of  the  primer  vector  A(t).  The  partial  derivatives  indicated  are 
given  as  follows,  with  6 denoting  the  Kronecker  delta  function: 


lx.  , r pi  xo.  r * "j  t * 

*—  = /v  - X ) I + “ (X-_X«)  +f6ii 

— <xi  X0.)L  r 3 M 3 o.  J 13 


3 L\  2 


2G.-A/3G  . 

.V  -)  Xo, 


X - X 

Sx  i o. 

[ i 


-kXo.-G2Xo.]+  ^ [0°*-^  ^+<3G3-A^)^'  ] 


+ gV 


P,  X 

MX-  r 1 ° 


ux.  _ l o.  1 

i_  _ _ — l r — i + — (x . -x  ) j + 

3 L 3 3 o -J 


X , - X p X 
i O,  r 2 o. 


x X 

Ag  AoJ] 
ro  0 S 


[(Gl 


G„  - A^G, 


■)J»  V+  (2G4-A^G3)X0.]+f6i)' 
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ANSTEP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description  J 

GO 

AX 

1 

Indicator  for  stepping  forward  or  not; 
in  the  latter  case,  the  program  is 
iterating  to  find  the  root  of  some  func- 
tion, using  PQ  as  the  anchor-point. 

GX(6) 

SU 

REAL8 

dx.(t)/dx.(t  ) and  dx.(t)/dx.(t  ). 
i ] o'  i jo 

RC 

SU 

REAL8 

2 

Cube  of  spacecraft  solar  distance,  r , 
in  AU3. 

RT 

SU 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 

SX(50) 

U 

REAL8 

Array  of  trajectory  dependent-variables 
Xgaved  corresponding  to  the  beginning 
of  the  current  computation  step. 
Allocated  the  same  as  X(50). 

XD(50) 

S 

REAL8 

Array  of  trajectory  dependent-variable 
derivatives;  time-derivatives  in  this 
routine  (during  coast  phases). 

BETA 

s 

REAL8 

Trajectory  independent -variable,  /S, 
in  radians  • AU  ^ . 

DBETA 

UAX 

Computation  step-size,  i.e.,  increment 
of  trajectory  independent -variable, 

A£,  in  radians  • AU1' 2. 

SB  ETA 

U 

REAL8 

Trajectory  independent-variable  at 

beginning  of  current-computation  step, 

B , in  radians  • AU1'2. 

'o’ 
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Name: 


BEGIN 


Calling  Argument:  None 

Referenced  Sub-programs:  None 

Referenced  Commons:  EXTREM,  INTGR4,  ITERAT,  ITER2,  LOGIC4, 

REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  MAIN 

Discussion:  Subroutine  BEGIN  is  called  once  per  run,  from  the  top  of  the  MAIN 

program  at  the  beginning  of  execution,  and  performs  the  function  of  initializing, 

or  setting  the  default  values  of,  the  program  input  quantities.  In  addition,  the 

subroutine  zeroes  out  the  locations  of  all  major  program  COMMON  statements 

and  computes  the  basic  unit  conversion  factors  used  by  the  program,  which  are 

essentially  based  on  two  numbers.  These  two  numbers  are  (1)  the  gravitational 

constant  of  the  sun,  1.32715445  x 10  m /sec  = SUNMU,  and  (2)  the  number 

of  meters  in  one  astronomical  unit,  1,49599  x 10  meters  = CONDS.  The 

o 

routine  also  sets  the  obliquity  of  the  ecliptic  € = 23  .45. 


BEGIN  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

E 

====== 

SU 

REAL8 

Obliquity  of  the  ecliptic,  € , in  radians. 

AN 

s 

REAL8 

Trajectory-integration  exponent  in 
regularization  formula. 

AR 

s 

REAL8 

Desired  final  extra-ecliptic  perihelion 
distance,  in  AU. 

BI 

s 

REAL8 

Efficiency  coefficient  b in  equation 
for  efficiency. 

NOS 


*0* 
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BEGIN  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BX(5,  70) 

SE 

IT  ERA  T 

Iterator  independent  variable  array. 

BY(3, 70) 

S 

ITERAT 

Iterator  dependent  variable  array. 

CE 

S 

REAL8 

Cosine  of  obliquity  of  the  ecliptic, 
cos  € . 

DI 

S 

REAL8 

Efficiency  coefficient  d in  equation 
for  efficiency,  inkm/sec. 

GM(70) 

s 

SOLSYS 

Array  of  planetary  gravitational 
constants,  in  m^/sec  . 

PI 

su 

REAL8 

Ratio  of  circumference  of  circle  to 
diameter,  IT. 

SE 

s 

REAL8 

Sine  of  obliquity  of  the  ecliptic,  sin  C . 

T2(10) 

su 

REAL8 

Initial  estimates  of  swingby-continua- 
tion- trajectory-segment  flight  times, 
in  days. 

XO  (7) 

s 

REAL8 

• 

Spacecraft  initial  state  vector,  x , x , 

o o 

M , where  x is  in  AU.  x is  in 
o o o 

EMOS,  and  M = 1 is  set  elsewhere, 
o 

APL(2,  70) 

s 

SOLSYS 

Array  of  planet  names. 

I j 

DEG 

su 

REAL8 

Conversion  factor  between  radians 
and  degrees;  number  of  degrees  in 
one  radian. 

GAP 

s 

REAL8 

Propulsion-corner  proximity  tolerance- 
interval. 

IRK 

s 

INTGR4 

Numerical  integration  option  indicator 
(currently  not  used). 

IRL 

SE 

INTGR4 

Primer-origin-proximity  step-size- 
control  indicator. 

i 
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BEGIN  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ITF 

S 

INTGR4 

Estimated  time  remaining  to  halt 
computer  run  with  full  printout,  in 
case  of  proximity  to  maximum 
machine  time,  in  seconds. 

RAP 

S 

REAL8 

Apoapse  distance  of  capture  orbit 
about  primary  target,  in  planet  radii. 

SAI 

S 

REAL8 

Semi-major  axis  of  primary-target 
orbit,  in  AU. 

TDV 

s 

REAL8 

Time  of  deep  space  burn,  in  days. 

TGO 

s 

REAL8 

Ballistic  trajectory-extension  print 
option  indicator. 

CONG 

s 

REAL8 

Conversion  factor  between  specific 
impulse  and  jet  exhaust  speed,  in 
meters/sec2. 

CONX(70) 

s 

ITERAT 

Array  of  print  conversion  factors  for 
iterator  independent-variables. 

CONY(70) 

s 

ITERAT 

Array  of  print  conversion  factors  for 
iterator  dependent-variables. 

HOUR 

s 

REAL8 

Hour-of-day  of  reference  date. 

MDAY 

s 

INTGR4 

Day-of-month  of  reference  date. 

MODE 

s 

INTGR4 

Power  variation  option  selector. 

NSET(5) 

su 

INTGR4 

Iteration-sequence  control  array. 

RPER 

s 

REAL8 

Periapse  distance  of  capture  orbit 
about  primary  target,  in  planet  radii. 

TOFF(20) 

s 

REAL8 

Array  of  times,  from  the  start  of  the 
trajectory,  at  which  imposed  coast 
phases  are  to  begin,  in  days. 

CON  AO 

su 

REAL8 

Acceleration  conversion  factor,  from 
AU/tau2  to  meters/sec2. 
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BEGIN  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

CONDS 

CONPW 

CONSP 

CONTM 

CTANK 

CTRET 

ERROR 

MONTH 

MOPT3 

MYEAR 

NDIST 

NHUNG 

NTAPE 

PSIGN 


Use 

II 

SU 

REAL8 

s 

REAL8 

SU 

REAL8 

SU 

REAL8 

S 

REAL8 

S 

REAL8 

t 

S 

LOGIC4 

S 

INTGR4 

s 

INTGR4 

s 

INTGR4 

s 

INTGR4 

s 

INTGR4 

s 

INTGR4 

s 

REAL8 

Description 


Distance  conversion  factor,  AU  to 
meters. 

2 3 

Power  conversion  factor,  in  m /sec  . 

Speed  conversion  factor,  from  AU/tau 
to  meters/second. 

Time  conversion  factor,  tau  to  days. 

Electric  propulsion  system  propellant 
tankage  factor,  k^. 

Retro  tankage  factor,  k , for  retro 

rt 

maneuver  at  the  primary  target. 

Program  master  error  indicator. 

Month-of-year  of  reference  date. 

Planet-number  of  primary  target. 

Year  of  reference  date. 

Identification  number  of  celestial  body 
to  be  used  as  the  reference  for  the 
communication  distance  and  angle 
measurement  printed  in  the 
Extremum  Point  Summary  Table. 

Maximum  number  of  propulsion- 
corner-proximity  occurrences  allowed 
in  a given  iteration-sequence. 

Specifies  the  unit-number  for  the 
t r a j e ctory-tape . 

Coefficient  defining  the  sense  of  the 
launch  hyperbolic  excess  velocity 
relative  to  the  initial  primer  vector. 
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BEGIN  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

STATE  (6) 

S 

REAL8 

Array  containing  the  Cartesian  position 
and  velocity  components  of  the  primary 
target,  in  AU  and  EMOS. 

STEP1 

S 

REAL8 

Thrust-phase  computation  step-size,  Au. 

STEP2 

s 

REAL8 

Coast-phase  computation  step  size,  A/?. 

SUNMU 

su 

REAL8 

Gravitational  constant  of  the  sun,  in 
m^/sec  . 

THRET 

s 

REAL8 

Retro-stage  thrust  in  retro  maneuver 
at  the  primary  target,  in  pounds. 

TPMAX 

s 

REAL8 

Obsolete  variable. 

TWOPI 

s 

REAL8 

Twice  pi,  2 it. 

ALPHAA 

s 

' 

REAL8 

Specific  mass  of  solar  arrays,  0^, 
in  kg/kw. 

ALPHAT 

s 

REAL8 

Specific  mass  of  thruster  subsystem, 

a , in  kg/kw. 

1 

CONLBS 

s 

REAL8 

Conversion  factor,  newtons  to  pounds. 

CONVRG 

s 

LOGIC4 

Iteration-sequence  convergence  indicator. 

FPSNMH 

s 

REAL8 

Conversion  factor,  knots  to  fps. 

GAMMAX 

s 

REAL8 

Maximum  permissible  value  of  the 
power  function,  y . 

MAXHAM 

s 

INTGR4 

Maximum  number  of  times  program 
will  check  Hamiltonian  constancy. 

MUPDAT 

s 

INTGR4 

Indicator  for  whether  iterator 
independent  variables  at  the  finish 
of  the  iteration  sequence  of  a given 
case  are  to  be  used  as  initial  guesses 
for  the  next  case. 
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BEGIN  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

NPRINT 

S 

INTGR4 

Printout  amount  selection  indicator. 

NSWPAR 

S 

INTGR4 

Iterator  independent-variable  perturba- 
tion-increment control  indicator. 

POWFIX 

s 

REAL8 

Launch-vehicle-independent  trajectory 
option  indicator,  in  which  the  value  of 
POWFIX  is  the  spacecraft's  reference 
power  in  kilowatts. 

RADIUS  (70) 

s 

SOLSYS 

Array  of  planetary-body  radii,  in 
meters. 

RADODD 

s 

REAL8 

Radius  of  primary  target;  in  meters. 

SPIRET 

s 

REAL8 

Retro-stage  specific  impulse  pertain- 
ing to  the  retro-maneuver  at  the 
primary  target,  in  seconds. 

TPOWER 

s 

REAL8 

Solar-cell  degradation  characteristic- 
time, in  days. 

TSCALE 

s 

REAL8 

Iterator  dependent-variable  tolerance - 
interval  scaling  factor. 
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Name: 


CARKEP 


Calling  Argument: 

Referenced  Sub-programs : 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


ENP,  A,  E,  EYEP,  SOMP,  OMP,  G,  H,  VP, 
SRP,  R,  RDH,  EMU 

VCR  OSS,  VDOT,  VMAG 

None 

None 

SPRINT 


Discussion:  CARKEP  calculates  classical  orbital  elements  using  the  Cartesian 
input  position  and  velocity.  The  computational  algorithm  is  specified  by  the 
following: 

The  angular  momentum  vector,  H,  is  given  by 


H = R x R 


The  inclination,  i,  is  given  by 


i = cos"1  (H  • e /h) 
n 

where  e is  the  unit  pole  vector  of  the  basic  reference  system  and 
n 

h = |h  | 

The  longitude  of  the  ascending  node,  £2,  is  given  by 

y * (e, X H) 


0=  tan 


-1 


- *7, 

_ A 


n 


x -(e  x H) 
P n 


■ J + n 


where  y and  x are  axes  defining  the  reference  system  given  by 
P P 

y = [ i x e ],  x = Cy  x e ] . 

Jp  n p p n 

The  argument  of  position,  O),  measured  in  the  orbit  plane  from  the 
ascending  node  is  given  by 
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. _ R • [H  x (e  x H)] 

<c-  tan'1  [ 2 

R • [e  x H]  h 


The  semi-major  axis  is  given  by 

v, 

r n 

The  flight  path  angle  is  given  by 


,,  . -1  / R • V \ 

7 = sin  l ) 

v rv  / 


The  eccentricity  is  given  by 


CARKEP  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

ENP(3) 

UX 

Unit  pole  vector  e . 

n 

A 

sux 

Semi-major  axis,  a . 

E 

sx 

Eccentricity,  e. 

EYEP 

sx 

Inclination,  i,  radians. 

SOMP 

sx 

Argument  of  position,  co,  radians. 

OMP 

sx 

Longitude  of  ascending  node,  Cl,  radians. 

G 

sx 

1 

Flight  path  angle,  7,  radians. 
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CARKEP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use' 

Common 

Description 

H(3) 

SUX 

Angular  momentum  vector,  H. 

VP 

SUX 

Magnitude  of  the  velocity,  v. 

SRP 

SUX 

Magnitude  of  the  position,  r. 

R(3) 

UX 

Position  vector,  R. 

RDH(3) 

ux 

Velocity  vector,  V. 

EMU 

UX 

Gravitational  parameter,  (j,  . 

Output  units  are  consistent  with  input  units. 
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Name: 


CDERIV 


Calling  Argument:  None 

Referenced  Sub-programs:  RADAR,  THANGD,  UNITD,  VADD,  VCROSS,  VDOT 

VMAG,  VSCAL,  VSUB 

Referenced  Commons:  EXTREM,  INTGR4,  ITERAT,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  CHECK,  INTERP,  TAP 

Discussion:  CDERIV  computes  all  the  functions  monitored  by  subroutine  CHECK, 
in  which  CHECK  controls  the  iterations  to  isolate  the  function  roots;  many  of  these 
functions  are  the  time-derivatives  of  functions  for  which  the  isolation  of  extrema 
is  desired,  and  therefore  the  name  CDERIV  may  be  thought  of  as  the  derivative 
routine  associated  with  CHECK. 

Extrema  points  are  evaluated  by  locating  points  at  which  the  derivatives  of 
the  functions  go  to  zero.  The  other  special  points  (e.g. , thrust  switch  points)  are 
obtained  by  defining  a function  which  goes  to  zero  at  the  special  point  (e.g. , the 
thrust  switch  function  ct)  and  isolating  these  roots.  The  B array  contains  the 
monitored  functions.  B(l,  i)  contains  the  value  of  the  i^  function  at  the  beginning 
of  the  current  computation  step  (stored  value),  and  B(2,i)  contains  the  current 
value,  i = 30  denotes  storage  for  the  trajectory  independent  variable  which  of 
course  is  not  a monitored  function.  The  contents  of  B are  as  follows: 

i function 

1 End  of  trajectory  segment,  t - t.. 

2 Thrust  switch  function,  (7. 

3 Thrust  switch  function  time  derivative,  o. 

4 Time  derivative  of  communications  distance,  r 

c U 111 

ft 

5 Solar  distance  time  derivative,  r . 

ft 

6 Thrust  angle  ip  time  derivative,  ip  . 

(continued) 

p„ge  bbM*  m 
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function 


7 

8 
9 

10 

11 

12 

13 

14 


Thrust  angle  6 time  derivative,  6. 

Thrust  cone -angle  0 time  derivative,  0. 

Critical  solar  distance,  r - r . 

c 

Two-dimensional  fixed  thrust-angle  flip-flop  condition, 
R(l)  A (2)  - R(2)  A (1). 


Time  derivative  of  communications  angle,  0 


com 


Time  derivative  of  power  function,  d(qy)/dt. 

Solar  array  orientation  power-curve  boundary  function,  f 

Solar  array  orientation  edgewise  function,  f . 

ch2 


chi* 


These  functions  are  either  computed  in  CDERIV  or  obtained  directly  from  other 
subroutines,  as  follows: 


(1)  End  of  trajectory  segment,  t - t.,  is  computed  directly  in  CDERIV. 

(2)  Thrust  switch  function,  a,  is  obtained  from  subroutine  FUNCT. 

0 

(3)  Thrust  switch  function  time  derivative,  <7,  is  obtained  from  subroutine 
FUNCT. 


(4)  The  communication  distance  is  defined  to  be  the  distance  from  the  Earth 
to  the  spacecraft  and  is  given  by 


r 

com 


|r  -P 

e 


y 


where  is  the  heliocentric  position  of  the  Earth,  or  other  reference 

body.  The  extrema  in  r are  evaluated  by  locating  the  points  when 

com 

(R-P  ) • (R  -P  ) =0  . 
e e 

(5)  The  solar  distance  is  simply  the  magnitude  of  the  spacecraft's  heliocentric 

position  vector.  Extrema  of  the  function  are  obtained  by  isolating  those 

■ ■ . 

points  where  r = R • R/r  is  zero. 
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(6),  (7),  and  (8)  The  extrema  of  the  thrust  angles  ip,  0 and  0 are  defined  by 
isolating  the  points  at  which  their  time  derivatives  vanish.  For  the  case 
of  unconstrained  thrust  angles,  these  derivatives  are  defined: 


i = — - — r (e,  • e + e ■ e,  ), 
cos  ip  t h t n 


0 = — — ( e , • e + e * e ) , 
sin0  ' t r t r 


0 = — 


(sin0  0 - cos  0 s in  0 0 ) 


sin  0 cos  tp 

. j 

<e  • e + e *e  + sin  0 sin  ip  ip)  , 

) cos  Ip  t V t V 


cos  0 cos  ip 


where  et>  the  time  derivative  of  the  unit  thrust  vector,  is  defined  for  the 
unconstrained-thrust-angle  case  as 


— - — [(Ax  A)  x A]  , 
|A|3 


and  also 


H = R x R , 


h=  |h|  , 

e.  = H/h  , 
h 

[(H  x H)  x H]  , 

h h3 
er  = R/r, 

l =4  [(RxR)xR], 
r 3 
r 

H = ^ (R  x it)  , 


337 


CDERIV-3 


The  two  expressions  for  0 are  employed  to  avoid  singularities  when  either 
sin  0 or  cos  0 vanish. 

For  the  case  of  constrained  thrust  cone  angle,  no  extrema  of  the  cone 
angle  0 is  sought  since  the  angle  is  a constant.  The  derivatives  of  the  other 

two  angles  are  as  defined  above  using  the  value  for  e generated  by  sub- 

• t 

routine  THANGD  and  setting  0=0. 

(9)  Critical  solar  distance,  r - r^,  which  demarks  a corner  in  the  power- 

function  (or  its  derivative),  is  computed  directly  in  CDERIV,  where  r = |r| 
is  obtained  from  subroutine  FUNCT. 


(10)  The  thrust-direction  (prograde  or  retrograde)  switching  condition  when 
fixed-thrust-angle  simulations  are  constrained  to  be  two  dimensional  is 
obtained  by  isolating  the  roots  of  R x A,  which  demark  the  times  at  which 
the  primer  vector  is  instantaneously  aligned  with  the  spacecraft  position 
vector. 


(11) 


(12) 


Extrema  of  the  communications  angle  correspond  to  the  roots  of  the  equation, 
[(R  - P )x(R-P  )lx  (R-P  ) (PxP)xP 

S - . p + —2 S . (p.p  ) = o , 

!p  I |r  - p 1 3 e Ir-p  Up  I3  e 


e e e e 

where  P is  defined  under  (4)  above, 
e 

Extrema  of  the  power  function  q y are  obtained  by  isolating  the  roots  of  the 
function, 


dig  Y)  _ 

dt 


qy  +q  y = 


o . 
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When  the  solar  arrays  are  operating  at  an  orientation  corresponding  to  being 
on  the  power-curve  (as  opposed  to  being  below  the  curve),  the  derivatives  in 
the  above  expression  are  given  by, 


R • R 

y = 

/ r 


sy 

3 r 


curve 


q = - h q d/T 
ad 


Otherwise,  when  power  degradation  is  being  simulated  and  the  arrays  are 
tilted  away  from  the  sun,  corresponding  to  operating  beneath  the  power 
curve,  the  expression  for  y becomes 


’'=-H[g(,V,'x‘s,+9  -c^V'V 


(13)  and  (14)  The  two  functions  f and  fch2  which  demark  the  switching  of 

the  solar  array  tilt  angle  X from  its  limiting  boundaries  are  obtained  from 
subroutine  SOLAR. 

Functions  (1),  (2),  (3),  (5),  (9),  (10),  (13),  and  (14)  are  monitored  on  all  trajectories, 
as  they  are  potentially  important,  depending  on  the  options  being  simulated,  in  de- 
termining events  which  fundamentally  affect  the  trajectory  itself.  The  other 
functions,  (4),  (6),  (7),  (8),  (11),  and  (12),  are  monitored  only  on  the  final, 
summary  trajectory  of  each  case,  for  the  purpose  of  obtaining  informative  print- 
out of  the  associated  extrema. 
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CDERIV  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(2,  30) 

SU 

EXTREM 

Array  of  monitored  functions. 

D 

U 

REAL8 

_2 

Power  density,  d,  in  AU  . 

0(70) 

U 

ITERAT 

Array  of  iterator  independent-variables; 
0(21)  is  the  thrust  angle,  when  it  is  held 
constant,  in  radians. 

R(2) 

UA 

REAL8 

Spacecraft  solar  distance,  r,  at  start 
of  computation  step  (R(l))  and  instan- 
taneously (R(2)),  in  AU. 

X(50) 

UA 

REAL8 

Array  of  trajectory  dependent -variables, 
as  described  in  subroutine  RKSTEP. 

FT 

UA 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

JC 

. U 

i 

i 

j 

INTGR4 

Counter  corresponding  to  the  JC“* 
specified  time-function  value  (i.e. , 
the  time)  isolated,  or  to  be  isolated, 
thus  far  on  the  cui'rent  trajectory 
segment.  Attains  values  greater  than 
one  when  imposed  coast  phases  are 
invoked. 

PP(2) 

! UA  J 

i 

REALS 

Primer  magnitude,  \ , defined 
similarly  to  R(2). 

VJ 

U 

REAL8 

Jet  exhaust  speed,  c,  in  EMOS. 

XD(50) 

u 

REAL8 

Array  of  trajectory  dependent-variable 
derivatives,  corresponding  to  X(i). 

ETH(3) 

A 

REAL8 

Thrust  unit  vector,  e^. 

EVC  (6) 

A 

REAL8 

Communications  reference  body  position 

and  velocity,  P and  P , in  AU  and 
e e 

EMOS,  respectively. 

PHI 

SU 

REAL8 

Thrust  angle  0,  in  radians. 

I 
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Variable 

Use 

Common 

Description 

PSI 

SU 

REAL8 

Thrust  angle  it,  in  radians. 

R1N 

U 

REAL8 

Conversion  factor  from  generalized 

_ , J . n 

derivatives  to  time  derivatives,  r , 
ATTn 
in  AU  . 

BETA 

u 

REAL8 

Trajectory  independent-variable,  /3, 
in  AU*'2  radians. 

ETHD(3) 

SA 

REAL8 

• 

Thrust  unit-vector  time-derivative,  e , 
in  tau“A. 

POWR 

SA 

REAL8 

Power  function,  qy. 

QJEX 

U 

LOGIC4 

Detailed  printout  indicator. 

SWIT 

U 

REAL8 

a + <7  , as  defined  in  subroutine  FUNCT. 
1 2 

XCOM(6) 

UA 

REAL8 

Communication-distance  vector  and  its 

time  derivative,  R and  R , in  AU 

com  com 

and  EMOS,  respectively. 

CHFNC 

U 

REAL8 

A function  whose  roots  determine  the 
switch  points  of  the  array  tilt  angle  to 
and  from  the  power-curve  boundary, 

f m- 

chl 

COAST 

u 

LOGIC4 

Indicator  for  coasting  flight  or  thrusting 
flight;  used  in  place  of  h^. 

COPHI 

u 

REAL8 

Cosine  of  fixed-thrust-angle,  cos  0^.  .. 

DPOWD 

u 

REAL8 

q dy/dd. 

DPOWR 

u 

REAL8 

q Sy/dr. 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

FIRST 

u 

LOGIC4 

Indicator  for  beginning  of  trajectory 
segment. 
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CDERIV  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

— 

Description 

PCURV 

U 

LOGIC4 

Indicator  for  condition  in  which  solar 
arrays  are  oriented  to  receive  the 
maximum  power  permissible  under  the 
current  power-curve  assumption,  or  to 
be  tilted  away  from  the  maximum  per- 
missible due  to  degradation  considera- 
tions. 

PMDOT 

UA 

REAL8 

Primer-magnitude  time-derivative,  X . 

SI  PHI 

U 

REAL8 

Sine  of  fixed-thrust -angle,  sin0„. 

fixed 

THETA 

S 

REAL8 

Thrust  angle  0,  in  radians. 

CHFNC2 

U 

REAL8 

A function  whose  roots  determine  the 
switch  points  of  the  array  tilt  angle  to 
and  from  the  stowed-edgewise  boundar}^ 
(X^/2),  fch2. 

DPOWDD 

u 

REAL8 

q d2y/dd2. 

DWITCH(2) 

u 

REAL8 

Time  derivative  of  thrust  switch  function, 
0,  defined  similarly  to  R(2). 

FIXTHR 

u 

LOGIC4 

Indicator  for  fixed  thrust-angle. 

RTSWIT 

u 

REAL8 

Critical  solar  distance  corresponding 
to  a special  point  in  the  solar  power 
curve,  in  AU. 

SWITCH  (2) 

u 

REAL8 

Thrust  switch  function,  c,  defined 
similarly  to  R (2). 

TAUPOW 

u 

REAL8 

Negative  inverse  of  characteristic 

degradation  time,  -l/r,,  in  tau-1. 

d 

TCHECK(41) 

u 

REAL8 

Array  of  time  values,  isolated  by  sub- 
routine CHECK,  in  tau. 
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Name: 


CHECK 


Calling  Argument:  None 

Referenced  Sub-programs:  CDERIV,  FUNCT,  INTERP,  LOAD,  SOLAR,  STEP, 

STORE  for  CHECK; 

STOREI  for  CHECKI; 

CDERIV,  LOAD,  STORE  for  CHKINT 

Referenced  Commons:  EXTREM,  INTGR4,  LOGIC4,  REAL8 


Entry  Points:  CHECKI,  CHKINT 

Referencing  Sub-programs:  TAP  for  CHECK; 

TRAJI  for  CHECKI; 
TAP  for  CHKINT 


Discussion:  This  subroutine  monitors  the  trajectory  across  each  computation  step 
to  determine  if  any  remarkable  points  have  been  passed.  If  so,  CHECK  executes 
the  iteration  to  isolate  each  remarkable  point  by  calling  subroutine  INTERP.  The 
remarkable  points  on  each  trajectory  are  discussed  in  subroutine  CDERIV . The 
absolute  maximum  power  and  maximum  and  minimum  solar  distances  over  the  en- 
tire trajectory  are  also  determined  (in  subroutine  STORE). 

Entry  point  CHECKI  performs  initialization  associated  with  an  entire  tra- 
jectory, and  entry  point  CHKINT  performs  the  required  initialization  associated 
with  each  trajectory  segment. 

The  following  are  definitions  of  several  key  variables  which  are  not  con- 
tained in  the  External  Variables  Table: 


Parameter 


Definition 


I 

J 

IC 


(continued) 


Index  of  priority  array  ICHK. 

Current  number  of  remarkable  points  found 
In  the  current  computing  interval. 

Index  which  specifies  the  particular  function 
currently  being  monitored. 


rnuuisuuw  fAUtS 


blank.  NUT  fU*a> 
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CHECK-1 


Parameter 


Definition 


ICHK 

JCHK 

JMAX 

NCEPS 

MAXCHK 


Priority  array  for  the  monitored  functions, 
B. 

Function  monitor  bypass  indicator  array. 
Maximum  permissible  value  for  J. 
Permanent  value  of  NCEP. 

Permanent  value  of  NCHK. 


The  following  special  flow  chart  is  included  to  elucidate  the  basic  aspects 
of  CHECK'S  operation: 


CDERIV 


ENTRY  ^ 


store  monitored 
functions 
corresponding  to 
beginning  of 
computation  step  ■ 

1 

j 

/compute  monitored\ 

( functions  at  ) 
\ current  point  / 


i 

i 

! 

initialize  for 
current  interval 

FROM  TAP 
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CHECK-3 


increment 
special  point 
counter 


■'summary' 

trajectory 


compute  special' 
point  table 
elements 


LOAD 


t.  = END  OF  SEGMENT  TIME 
<7  = SWITCH  FUNCTION 
a = SWITCH  DERIVATIVE 
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Messages  and  printouts:  An  error  condition,  consisting  of  an  array  overflow,  would 
exist  if  CHECK  attempted  to  isolate  more  than  JMAX  = 20  points  within  any  com- 
putation step.  When  the  limit  JMAX  is  exceeded,  the  following  diagnostic  message 
and  array-dump  is  output  on  unit  6: 

STORAGE  TABLE  EXCEEDED  IN  SUBROUTINE  CHECK  AT  TIME  = Jt) DAYS. 

MAXIMUM  OF  (JMAX)  SPECIAL  POINTS  ARE  ALLOWED  WITHIN  A COMPUTING  STEP. 
DUMP  OF  STORAGE  ARRAY  CEPS  (*,*,2)  FOLLOWS. 


(line  20)  

in  which  t is  the  time  elapsed  since  the  beginning  of  the  trajectory,  in  days,  and 
CEPS  is  the  storage  array  of  remarkable  points  and  related  trajectory-function 
values.  Concurrently,  the  message  is  output  on  unit  12: 

FATAL  ERROR.  STORAGE  TABLE  *CEPS*  EXCEEDED. 

Subsequently,  the  program  master  error  indicator  is  set,  and  the  routine  is  exited 
forthwith. 


CHECK  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(2,  30) 

SU 

EXTREM 

Array  of  monitored  functions,  des- 

cribed  in  subroutine  CDERIV. 

X(50) 

u 

REAL8 

Array  of  trajectory  dependent -variables 

! 

described  in  subroutine  RKSTEP. 
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CHECK  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable  ' 

Use 

Common 

Description 

JC 

SU 

INTGR4 

Counter  corresponding  to  the  JC^ 
specified  time-function  value  (i.e. , the 
time)  isolated,  or  to  be  isolated,  thus 
far  on  the  current  trajectory  segment. 
Attains  values  greater  than  one  when 
imposed  coast  phases  are  invoked. 

JJ 

S 

INTGR4 

Thrust  switch  point  or  critical  solar 
distance  indicator. 

KF 

s 

INTGR4 

End  of  trajectory-segment  indicator. 

PP(2) 

u 

REAL8 

Primer  vector  magnitude,  X,  at  start 
of  computation  step  (PP(1))  and 
instantaneously  (PP(2)). 

GAP 

u 

REAL8 

Propulsion-corner  proximity  tolerance- 
interval,  A a. 

BETA 

u 

REAL8 

Trajectory  independent-variable,  /3,  ini 
AU1  2 radians. 

CEPS 

(14,20,2) 

u 

j EXTREM 

Storage  array  of  remarkable  points  and 
related  trajectory-function  values ; 
temporary  values  corresponding  to  the 
current  computation  step. 

CHK 

(2,100) 

su 

EXTREM 

Storage  array  for  solar-panel  array 
angle,  X « in  degrees. 

DMIN 

u 

REAL8 

Minimum  value  of  density  (in  the  ex- 
pression for  the  power  function  y), 

d . , in  AU-2. 
mm 

EDGE 

su 

LOGIC4 

Indicator  for  solar  arrays  being  oriented 
edgewise  to  the  sun;  used  only  if  power 
degradation  is  simulated. 

FLAP 

u 

LOGIC4 

Indicator  for  power-curve  options 
corresponding  to  nuclear-electric  pro- 
pulsion or  solar-electric  propulsion 
using  reflecting  flaps  to  maintain 
maximum  power. 

I 
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CHECK  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 


HEAT 


Common  Description 

■ i ,,  ~ ■■  i ...  ■■■■ 


L0GIC4  Indicator  that  the  solar  panels  are 
maintained  normal  to  the  sun  line  at 
all  times. 


MODE 


NCEP 


NCHK 


PLUS 


PMAX 


QJEX 


RMAX 


RMIN 


SWIT 


TILT 


INTGR4  Power  variation  option  selector . 

INTGR4  - Maximum  number  of  monitored  functions 
which  are  stored  for  printing. 

INTGR4  Maximum  value  of  I (see  discussion). 

LOGIC4  Indicator  for  determining  appropriate 

region  in  two-dimensional  simulations, 
as  described  in  subroutine  THANGD. 

REAL8  Maximum  value  of  power  ratio,  (qy)maxi 

encountered  along  the  trajectory. 

LOGIC4  Detailed  printout  indicator. 


REAL8 


REAL8 


REAL8 


LOGIC4 


XC0M(6)  U 


REAL8 


Maximum  solar  distance,  rmax»  en- 
countered by  the  spacecraft  along  the 
trajectory,  inAU. 

Minimum  solar  distance,  rmin,  en- 
countered by  the  spacecraft  along  the 
trajectory,  inAU. 

a + o (See  subroutine  FUNCT 
1 2 

discussion). 

Indicator  that  solar  arrays  are  to  be 
tilted  during  solar  proximity  (to  main- 
tain constant  power  when  there  is  no 
power-degradation). 

Communication— distance  vector  and  its 
time  derivative,  Rcom  and  Rcom*  in 
AU  and  EMOS,  respectively. 


/ 


CHECK  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

CHFNC 

U 

REAL8 

A function  whose  roots  determine  the 
switch  points  of  the  solar  array  tilt  angle 
to  and  from  the  power-curve  boundary, 

fchl* 

COAST 

u 

LOGIC4 

Indicator  for  coasting  flight  or  thrusting 
flight. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

DBETA 

SUA 

REAL8 

Computation  step  size,  (increment 

of  the  trajectory  independent  variable). 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

ERROR 

s 

LOGIC4 

Program  master  error  indicator. 

fflUNG 

su 

INTGR4 

Counter  of  the  number  of  propulsion- 
corner-proximity  occurrences  along 
the  current  trajectory. 

JCMAX 

u 

INTGR4 

Maximum  value  which  JC  may  attain, 
corresponding  to  the  end  of  the  current 
trajectory  segment. 

NSPEC 

u 

INTGR4 

Master  array  index  (and  counter)  for 
extremum-table  storage  arrays. 

PCURV 

su 

LOGIC4 

Indicator  for  condition  in  which  solar 
arrays  are  oriented  to  receive  the 
maximum  power  permissible  under  the 
current  power-curve  assumption,  or  to 
be  tilted  away  from  the  maximum  per- 
missible due  to  degradation  considera- 
tions. 

THUNG(5) 

su 

REAL8 

Times-of-occurrence  of  consecutive 
propulsion-corner-proximities,  in  tau. 

BALLIS 

u 

LOGIC4 

Indicator  that  trajectory  segment  is 
all-ballistic  (pure  coast). 

I 
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CHECK  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

FIXTAU 

U 

LOGIC4 

Indicator  for  non-zero  A . 

T 

FIXTHR 

U 

LOGIC4 

Indicator  for  fixed  thrust-angle. 

HOHUNG 

(5) 

s 

REAL8 

Thrust  switch  function  time-derivative 
values,  corresponding  to  THUNG(i). 

MAXPOW 

u 

LOGIC4 

Indicator  for  mode  of  operation  in  which 
solar  panels  are  maintained  in  orienta- 
tion to  receive  maximum  permissible 
power,  when  power  degradation  option 
in  invoked. 

REGION 

su 

LOGIC4 

Indicator  for  spacecraft  solar  proximity; 
demarks  two  possible  regions  in  space, 
separated  by  sphere  about  sun  of  speci- 
fied radius,  at  which  power  function  (or 
its  derivative)  has  a corner. 

SKOUNT 

s 

REAL8 

Number  of  iterations  in  subroutine 
INTERP  required  to  isolate  the  (current) 
remarkable  point. 

SWHUNG 

(5) 

s 

REAL8 

Thrust  switch-function  values,  corres- 
ponding to  THUNG(i). 

SWITCH 

(2) 

u 

REAL8 

Thrust  switch  function,  o,  at  current 
time  (SWITCH(2))  and  at  start  of  current 
computation  step  (SWITCH (1)). 

TCHECK 

(41) 

u 

REAL8 

Array  of  time  values,  each  of  which  is 
isolated  by  subroutine  CHECK,  in  tau; 
intermediate  values  correspond  to  engine 
switch  times  associated  with  imposed 
coast  phases. 

TUDFLG 

u 

LOGIC4 

Indicator  for  two-dimensional  trajectory 
simulation  (motion  in  the  xy  plane). 

WONDER 

u 

LOGIC4 

Indicator  which  allows  or  disallows  the 
program  to  consider  if  the  current  tra- 
jectory is  in  the  proximity  of  a propul- 
sion-time corner. 
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CHECK-11 


JCFIG 


CHECK-17 


CHECK-19 


CHECK-23 


JC  MR 
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Name: 


CONVER 


Calling  Argument:  T,  ION,  TO  EQUA,  TORLAL,  SYSTEM,  VECL,  Z, 

RA,  VP LAN 


Referenced  Sub-programs:  N one 

Referenced  Commons:  None 


Entry  Points:  None 

Referencing  Sub-programs:  SWING 


Discussion:  This  routine  performs  the  conversion  to  the  equatorial  system  (of  the 
planet)  of  any  vector  expressed  in  the  ecliptic  system,  i.e.,  the  routine  expresses 
the  same  vector  in  terms  of  the  planet's  standard  coordinate  system  (z  toward 
planet’s  north  pole,  defined  by  counterclockwise  rotation  looking  down,  x along 
ascending  node  of  equatorial  plane  on  the  ecliptic,  y completes  right-handed 
system) . 


The  planet's  obliquity  c and  equator  ascending  node  0 are  expressed  as 
quadratic  functions  of  the  time  elapsed  since  1900,  in  Julian  centuries: 


€ = e „ + e , t + e „ t 
0 12 


0 = 0Q  + + (t>2i 


where  €,€,€,0,0,  and  0 are  constants  associated  with  the  given  planet, 
0 12  0 1 2 

and  are  displayed  in  the  DATA  statement  of  the  program  source  listing.  Then  the 

desired  output  vector  V , which  is  the  representation  of  the  same  vector  (which 

P 

may  be  position,  speed,  or  any  vector)  V in  planetary  coordinates,  where  V 
is  an  input  vector  expressed  in  terms  of  ecliptic  coordinates,  is  given  by 


where 


V = A V 
P e 
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A = 


cos  0 sin0  0 

-sin 0 cos  e cos 0 cose  -sine 
-sin  0 sine  cos  0 sine  cose 


In  the  planetary  reference,  the  vector's  declination  is  computed  as 

6 = sin-1  (V  / 1 V | ) , 


pz 


and  its  right  ascension  is 


a=tan-1  (V  /V  ) . 

py  px' 


CONVER  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

T 

UX 

Time  elapsed  since  1900,  t,  in  Julian 
centuries. 

Z 

sx 

Declination  of  V , 6 , in  degrees. 

RA 

sux 

Right  ascension  of  V , a,  in  degrees. 

ION 

UX 

Planet  selector. 

VECL{3) 

UX 

Input  vector,  V , expressed  in  ecliptic 
6 

coordinates,  in  arbitrary  units. 

VPLAN(3) 

sux 

Output  vector,  V , expressed  in  plane- 
tary reference  system  and  having  same 

units  as  V . 

e 

SYSTEM 

sx 

Dummy  descriptive  argument. 

TOEQUA 

sx 

Dummy  descriptive  argument. 

TORIAL 

sx 

Dummy  descriptive  argument. 
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Name: 


CONVRT 


Calling  Argument:  TRUE 

Referenced  Sub-programs:  None 

Referenced  Commons:  REAL8 

Entry  Points:  None 


Referencing  Sub-programs:  TAP 

Discussion:  Integration  of  the  differential  equations  associated  with  the  state 
and  adjoint  variables  is  done  in  two  distinct  modes  which  depend  upon  the  value 
of  the  thrust  switch  function,  a.  Numerical  integration  is  required  on  thrust 
intervals,  which  occur  whenever  <7  > 0.  Otherwise,  during  any  coast  phase,  the 
two-body  equations  of  motion  and  the  associated  adjoint  equations  are  known  to 
possess  analytic  solutions  obtainable  in  closed  form.  Time  derivatives  are  used 
during  coast  phases,  whereas  generalized  derivatives  are  used  during  thrust 
phases.  The  particular  generalized  derivatives  used  in  the  program  are  related 
to  time  derivatives  by  the  formula 

n . 

x = r x 

where  ' denotes  generalized  derivatives,  * denotes  time  derivatives,  r is  the 
spacecraft's  solar  distance  and  n is  an  input  constant.  The  problem  formulation 
in  the  program  is  set  up  solely  in  terms  of  first-order  derivatives,  so  that  the 
above  formula  suffices  to  describe  the  conversion  of  derivatives  between  thrust 
and  coast  phases.  In  particular,  the  above  formula  applies  explicitly  at  any 
switch  point  from  coast  to  thrust,  whereas 

x = x'/r 

is  employed  at  any  switch  point  from  thrust  to  coast. 
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CONVRT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

R (2) 

U 

REAL8 

The  spacecraft's  distance  from  the 
center  of  the  sun  at  the  current  time 
is  stored  in  R(2),  in  AU. 

X(50) 

SU 

REAL8 

Array  of  trajectory  dependent  vari- 
ables (including  the  derivatives 
which  need  to  be  converted.) 

AN 

u 

REAL8 

Input  constant  n used  in  the  formula 
which  converts  the  derivatives. 

R1N 

u 

! 

REAL8 

The  solar  distance  of  the  spacecraft 
raised  to  the  n^1  power,  r11,  where 
n is  the  input  constant  AN.  This  is 
equivalent  to  R(2)**AN,  but  unnecessary 
exponentiation  is  avoided  since  rn  is 
always  available  during  thrust  phases. 

TRUE 

ux 

Logical  indicator;  when  true,  space- 
craft is  beginning  a coast  phase ; when 
false,  spacecraft  is  beginning  a thrust 
phase. 
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Name: 


CORNER 


Calling  Argument: 

Referenced  Sub-programs: 

Referenced  Commons: 

Entry  Points  : 

Referencing  Sub-programs: 

Discussion:  Subroutine  CORNER  controls  the  logic  which  automatically,  but 
optionally,  generates  an  intermediate  forced-thrusting  case  in  an  attempt  to 
avoid  a so-called  propulsion-time  corner,  which  corresponds  to  a trajectory 
having  at  least  one  region  with  a very  small  thrust  phase  or  a very  small  coast 
phase.  When  a trajectory  is  very  near  to  a propulsion-time  corner,  the  case 
is  said  to  "be  hung"  on  a propulsion-time  corner  if  the  MINMX3  iterator  is  not 
able  to  make  any  significant  progress.  If  an  automatic  attempt  to  avoid  the  pro- 
pulsion-time corner  is  optionally  invoked  via  the  NAMELIST  input  variable  GAP, 
then  subroutine  CORNER  makes  preparations  for  the  inclusion  of  two  additional 
cases,  in  addition  to  any  user-input  cases,  which  immediately  follow  the  hung 
case.  The  first  additional  case  attempts  to  converge  using  forced-thrusting  (no 
coast  phases)  on  all  trajectories,  and,  if  convergence  is  achieved  with  forced- 
thrusting,  then  the  second  additional  case  attempts  to  obtain  the  user's  desired 
solution  (possibly  with  coast  phases)  using  the  trajectory  from  the  first  addi- 
tional case  as  an  initial  guess. 

Entry  point  RIDGE  performs  initialization  at  the  beginning  of  each  tra- 
jectory, and  makes  a key  test  at  the  end  of  each  trajectory  which  is  in  a small 
neighborhood  of  a propulsion -time  corner;  if  a sufficient  number  of  such  tra- 
jectories have  accrued,  then  entry  point  RIDGE  determines  that  the  current 
iteration  sequence  is  in  fact  hung  on  a propulsion-time  corner,  and  halts  the 
iteration  sequence  by  declaring  the  existence  of  an  error  condition. 


LOGIC  for  CORNER: 

TEST,  ERROR  for  RIDGE 

None 

INTGR4,  ITERAT,  LOGIC4,  REAL8 
RIDGE 

FINISH,  MAIN  for  CORNER; 

TRAJ,  TRAJI  for  RIDGE 


Messages  and  printouts:  When  entry  point  RIDGE  determines  that  an  iteration 
sequence  is  hung  on  a propuls  ion -time  corner,  the  following  is  printed  on  unit  6: 

CASE  n ABORTED  AFTER  m TRAJECTORIES  ENCOUNTERED 
NUMERICAL  DIFFICULTY  WITH  ENGINE  SWITCHING 

SUMMARY  OF  LAST  TRAJECTORY 

type  (1)  type  (2)  PHASE  AT  t-hung  (1)  DAYS 

t.VPe  (1)  type  (2)  PHASE  AT  t-hung  (2)  DAYS 

« 

where  n is  the  case  number,  m is  the  number  of  accrued  trajectories  (including 
perturbation  trajectories)  in  a small  neighborhood  of  a propulsion-time  corner, 
type  (1)  = SMALL  or  NEAR-,  and  type  (2)  = THRUST  or  COAST,  and  the  program 
will  detect  the  first  five  propulsion-time  corners  encountered  along  the  trajectory 
at  times  t-hung  (1),  t-hung  (2),  etc. , and  ignore  the  remainder.  The  following  is 
also  printed  on  unit  12: 

CASE  n HUNG  ON  SMALL  THRUST/COAST  PHAST  AT  T = t-hung  (1)  DAYS 

Then,  on  unit  6,  the  following  heading  appears  for  the  first  additional  case: 

(TEMPORARY  FORCED-THRUSTING  CASE) 

and,  if  that  case  (=  case  n+1)  converges,  then  the  following  heading  appears  for  the 
second  additional  case: 

(TO  GET  CASE  n FROM  CASE  n+1  ) 

However,  the  above  two  additional  cases  are  bypassed  if  any  iterator  triggers 
associated  with  propulsion  time  (inputs  X8  or  Y8)  are  on,  in  which  case  the 
following  is  printed  on  unit  6: 

AUTOMATIC  FORCED-THRUSTING  CASE  IS  BYPASSED  BECAUSE 
X8  AND/OR  Y8  TRIGGERS  ARE  ON. 

and  the  following  is  printed  on  unit  12: 

FORCED  THRUSTING  BYPASSED  BECAUSE  X8  AND/OR  Y8  ARE  ON 
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Variable 


Use 


Common 


Description 


BX(5, 70)  SU  ITERAT 

BY (3,  70)  U ITERAT 

HUNG  S LOCIC4 

IROT  SU  INTGR4 

MOPT  SU  INTGR4 


QJEX  U LOGIC4 

TEST  UX 

CONTM  U REAL8 

ERROR  UX 

IHUNG  SU  INTGR4 

JHUNG  SU  INTGR4 

KOUNT  U INTGR4 


Iterator  independent  variable  array. 

Iterator  dependent  variable  array. 

Status  indicator  as  to  whether  current 
iteration  sequence  is  hung  on  a pro- 
pulsion-time corner  or  not. 

A program  input  parameter  which 
must  be  temporarily  nullified  by 
subroutine  CORNER;  initial  primer 
vector  rotation  indicator. 

A program  input  parameter  which 
must  be  temporarily  nullified  by  sub- 
routine CORNER;  ballistic  option 
indicator. 

Final  (summary)  trajectory  indicator 
for  a given  case. 

Indicator  for  distinguishing  between 
initialization  and  testing. 

Time  conversion  factor,  tau  to  days. 

Error  indicator  for  the  current  case. 

Current  number  of  propulsion-time 
corner  occurrences  along  the  current 
trajectory. 

Indicator  for  controlling  the  two 
additional  cases  which  attempt  to 
avoid  the  propulsion-time  corner(s). 

Case  counter. 


CORNER  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

liliH 

Common 

Description 

KPART 

su 

INTGR4 

A program  input  parameter  which  must 
be  temporarily  nullified  by  subroutine 
CORNER;  option  indicator  for  auto- 
matically selecting  improved  independent 
parameter  perturbations  for  generating 
the  iterator's  partial  derivative  matrix. 

LOGIC 

ux 

Indicator  for  controlling  the  saving  and 
restoring  operations  performed  by  sub- 
routine CORNER. 

MREAD 

su 

INTGR4 

A program  input  parameter  which  must 
be  temporarily  nullified  by  subroutine 
CORNER;  card  input  option  indicator 
for  iterator  independent  variables. 

NHUNG 

u 

INTGR4 

f 

t 

1 

Iteration  sequence  cutoff  condition, 
input  to  the  program,  equal  to  the 
maximum  permissible  number  of  tra- 
jectories which  may  encounter  a 
propulsion-time  corner  within  a given 
iteration  sequence. 

THUNG(5) 

su 

REAL8 

Array  containing  up  to  five  consecutive 
times  at  which  propulsion-time  corners 
occurred  along  the  current  trajectory. 

HOHUNG(5) 

u 

REAL8 

Array  containing  up  to  five  consecutive 
thrust  switch  function  time  derivatives, 
corresponding  to  THUNG(i). 

MUPDAT 

su 

INTGR4 

A program  input  parameter  which  must 
be  temporarily  nullified  by  subroutine 
CORNER;  indicator  for  subsequent- 
case  initial-guess  update. 

SWHUNG(5) 

u 

REAL8 

Array  containing  up  to  five  consecutive 
thrust  switch  function  values,  corres- 
ponding to  THUNG(i). 

396 


* on  IHf  LIST 


MjaflOUflNr  CDNNFRf  l oc  1C  » 


ye 

VV  V*. 


»ut  . 


»u  t on  ow  t sn  - c 5 r C Minor  otcfnerw  i«r*»  f*  ct 


\ 


9 « 


o 


Ot 


401 


CORNER-9 


Name: 


DATE1 


Calling  Argument: 
Referenced  Sub-programs : 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


IY,  IM,  ID,  HOUR,  DJ 

None 

None 

None 

AEINWT,  QSTART 


Discussion:  This  routine  computes  the  Julian  date  DJ  given  the  year  IY, 
month  IM,  day  ID,  and  the  hour  of  the  day.  The  leap  year  adjustment  formula 
is  valid  up  to  the  year  2300.  The  routine  was  originally  written  in  single  pre- 
cision and  was  later  converted  to  double  precision  by  adjusting  the  single  pre- 
cision logic  appropriately. 

The  number  of  full  days  elapsed  in  the  current  year  is  computed: 


day  = (accumulated  days  to  first  of  month)  plus 
(days  elapsed  this  month) 


and  if 

(1) 

month  s March 

and 

(2) 

4.01  [.251  [year  - 1900]]  > lyear  - 1900] 

then 

day  - day  + 1 (leap  year  adjustment). 

where 

[ 3 

is  "the  integer  part  of"  the  quantity  in  brackets. 

The  Julian  date  is  then  given  by: 

Julian  date  = [365. 249 [year  - 1900 ]] 

+ day  + hour/24  + 15019.5 


where  this  is  the  Julian  date  less  2400000,  and  15019.5  is  the  Julian  date  dess 


2400000)  of  1900. 


PitfE 
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DATE1  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

DJ 

SX 

Julian  date,  less  2400000,  output  from 
the  routine,  in  days. 

ID 

UX 

Input  whole  days  elapsed  in  the  month 
IM,  plus  one;  that  is,  ED  is  the  day 
indicator. 

IM 

UX 

Input  whole  months  elapsed  in  the  year 
IY,  plus  one;  that  is,  IM  is  the  month 
indicator. 

IY 

UX 

Input  year  (e.g. , 1988). 

HOUR 

UX 

Hours  elapsed  (including  fraction  of 
hour)  in  the  current  day  (e.g. , 
17.80439). 
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Name: 


DECLIN 


Calling  Argument:  None 

Referenced  Sub-programs:  None 

Referenced  Commons:  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  OMASS,  PRINT 

Discussion:  This  subroutine  computes  the  launch  hyperbolic  excess  velocity 
asymptote  declination  6 given  the  launch  hyperbolic  excess  velocity.  When 
running  two-dimensional  trajectories  in  the  xy  plane, 

6 = 0. 


Otherwise,  in  general, 


6 = 


. -1 
sin 


v sin  e + v cos  e 

OQ  y ■ 002 


+ v 2 + v 
00  y 


l 


where  V = (v  , v , v ) is  the  launch  hyperbolic  excess  velocity  in  the 

oo  ' ®x  ooy  ®z 

ecliptic  coordinate  system  and  c = 23°.  45  is  the  obliquity  of  the  Earth's  equa- 
torial plane  to  the  ecliptic. 
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DECLIN  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

CE 

U 

REAL8 

Cosine  of  obliquity,  cos  € . 

SE 

U 

REAL8 

Sine  of  obliquity,  sin  € . 

DECL 

S 

REAL8 

Launch  hyperbolic  excess  velocity 
asymptote  declination,  6,  in  radians. 

VIMP 

U 

REAL8 

Magnitude  of  launch  hyperbolic  excess 
velocity,  in  AU/tau. 

V00D  (3) 

U 

REAL8 

Launch  hyperbolic  excess  velocity  in 
ecliptic  coordinates,  in  AU/tau. 

TUDFLG 

u 

LOGIC4 

Indicator  for  two-dimensional  tra- 
jectories in  the  xy  plane. 
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Name: 


DERIV 


Calling  Argument:  None 

Referenced  Sub-programs : SOLAR 

Referenced  Commons:  INTGR4,  LOGIC4,  REAL8 

Entry  Points : None 

Referencing  Sub-programs:  RKSTEP,  TAP 

Discussion:  This  routine  contains  the  differential  equations  governing  the  motion 
of  the  spacecraft  in  heliocentric  space  during  thrust  periods ; the  primary  purpose 
is  therefore  to  compute  the  derivatives  XD(i)  of  the  trajectory  dependent  variables, 
which  are  itemized  in  the  discussion  of  subroutine  RKSTEP,  with  respect  to  the 
trajectory  independent  variable,  which  is  the  generalized  universal  anomaly,  u 
(and  which  may  be  represented  elsewhere  in  this  document  by  the  more  general 
symbol  >3) . 

The  relationship  between  derivatives  with  respect  to  time  and  u is  given 
by 

du  -n 
dt  r ’ 

where  r is  the  spacecraft's  solar  distance  and  n is  an  input  constant.  Denoting 
derivatives  with  respect  to  u with  the  prime,  the  conversions  from  time  to  u de- 
rivatives are 

. n * 

x - r x , 

x"  = r ( — g — nx  + x J . 
r 

The  time-derivatives  of  the  trajectory  dependent-variables,  which  are 
transformed  to  generalized  derivatives  via  the  above  relations,  are  expressed  as 
follows,  where  h^  has  the  value  unity: 
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The  spacecraft  position  satisfies  the  differential  equation 


£ZSL  - . JL 


R = h e - R . 

a u t 3 
r 


The  mass  ratio  satisfies  the  differential  equation 


v = - h 


O'  C 


The  adjoint  equations  are 


where 


and 


K ■ - ^ A+  ^ P • A>  R <A'  V o H • 


X’  = h *23-  (A  • i ) , 

1/  a ^2  t 


X-  =-h„  a(1.;  JX  |i 

g CT  V t C U' 


X-  = - h 221  X , 

C <7  2 P 

C 


X*  = h (A  • i - - x ) 

s a i/r,  t c v 


y*  = by/bd. 


sd  i r-  - — i 2 

^ = ~3  Ln  ~ ^(er  * n)er  J = ” when  it  is  not  zero. 


The  time  time-derivative  is,  of  course,  unity  (t  = 1),  and  the  time  generalized 


n 


derivative  is  simply  t'  = r . The  degradation-time  derivative  is 


s = h d . 

a 

The  adjoint  variable  derivative  associated  with  fixed  thrust  cone-angle  is  computed 
as  follows:  let  X^  be  a Lagrange  multiplier  that  is  identically  zero  if  thrust  cone 
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angle  is  unconstrained  and  defined 


V'ha  it 


sza  A ' (”  x li 


R • (m  x et) 


if  the  cone  angle  is  fixed.  The  unit  vector  m is  defined 

- R x A 


m = 


Jr  x A 


Then  the  differential  equation  for  the  variable  adjoint  to  the  thrust  cone  angle 
0 is 

X . = X R • (mx  e,). 

0 X t 


The  thrust  unit  vector  e^  is  required  in  subroutine  DERIV  when  the  thrust 
cone-angle  is  held  constant.  (Otherwise,  et  is  aligned  with  A and  therefore  need 
not  be  computed).  Rather  than  obtaining  et  from  subroutine  THANG,  et  is  com- 
puted directly  within  DERIV,  in  order  to  minimize  computation  time.  The  equations 
for  the  computation  of  e^  are  given  in  the  discussion  of  subroutine  THANGD. 


DERIV  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

X(50) 

U 

REAL8 

Array  of  trajectory  dependent-variables 
(see  subroutine  RKSTEP). 

AN 

U 

REAL8 

Exponent  n in  the  conversion  formula 
for  generalized  derivatives. 

FT 

u 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

RC 

su 

REAL8 

3 3 

Cube  of  solar  distance,  r , in  AU  . 

RS 

su 

REAL8 

2 2 

Square  of  solar  distance,  r , in  AU  . 

RT 

su 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 
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DERIV  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XD(50) 

su 

REAL8 

Array  of  trajectory  dependent-variable 
derivatives  (with  respect  to  generalized 
universal  anomaly,  u),  in  same  order  as 
indicated  by  the  discussion  of  subroutine 
RKSTEP. 

ACC 

su 

REAL8 

Instantaneous  thrust  acceleration, 
a = gyq/V,  in  AU/tau2. 

AVJ 

u 

REAL8 

Inverse  of  jet  exhaust  speed,  l/c,  in 
EMOS-1. 

ETH(3) 

su 

REAL8 

Thrust  unit  vector,  e^. 

PLC 

su 

REAL8 

First  component  of  thrust  switch 
functions,  o^,  (see  FUNCT). 

PMN 

su 

REAL8 

Primer  magnitude,  X. 

PMS 

su 

REAL8 

2 

Square  of  primer  magnitude,  X . 

R1N 

su 

REAL8 

Spacecraft  solar  distance  raised  to  the 
nth  power,  rn,  used  in  converting  be- 
tween generalized  and  time  derivatives. 

R2N 

su 

REAL8 

2n  , 

r (see  R1N). 

AXIS  (3) 

s 

REAL8 

Spacecraft  spin-axis  unit  vector  (not 
used  at  present). 

FLAP 

u 

LOGIC4 

Indicator  for  a power  function  curve 
which  is  a constant. 

PLUS 

u 

LOGIC4 

Indicator  for  determining  appropriate 
region  in  two-dimensional  simulations, 
as  described  in  THANGD. 

POWR 

U(S) 

REAL8 

Power  ratio,  yq. 

SWIT 

su 

REAL8 

°1  + cr2;  two  terms  of  the  thrust 

switch  function,  as  described  in  sub- 
routine FUNCT. 

414 


DERIV  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

COPHI 

U 

REAL8 

Cosine  of  fixed  thrust  angle,  cos  0 . 

DMASS 

su 

REAL8 

Mass-ratio  time-derivative,  0 , in 
tau-* . 

DPOWR 

U(S) 

REAL8 

qdy/dr. 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

FTOVJ 

u 

REAL8 

Ratio  of  reference  thrust  acceleration 
to  jet  exhaust  speed,  g/c,  in  tau  . 

PCURV 

u 

LOGIC  4 

Indicator  for  condition  in  which  solar 
arrays  are  oriented  to  receive  the  maxi- 
mum power  permissible  under  the 
current  power-curve  assumption,  or  to 
be  tilted  away  from  the  maximum  per- 
missible due  to  degradation  considera- 
tions. 

SIPHI 

u 

REAL8 

Sine  of  fixed  thrust  angle,  sin  0 . 

DENSIT 

U(S) 

REAL8 

-2 

Power  density-function,  d,  in  AU 

FIXTHR 

u 

1 

LOGIC4 

Indicator  for  fixed  thrust-angle. - 

NPHI20 

u 

I NTGR4 

Index  for  currently-active  fixed  thrust  „ 
angle ; only  one  value  is  presently 
allowed,  21.  Index  selects  adjoint 
variable  derivative  in  DERIV. 

Q ERODE 

u 

LOGIC4 

Indicator  which  is  true  when  either 
ERODE  or  QJEX  (final  case-summary 
trajectory)  is  true. 

REGION 

u 

LOGIC4 

Indicator  for  spacecraft  solar  proximity; 
demarks  two  possible  regions  in  space, 
separated  by  sphere  about  sun  of 
specified  radius,  at  which  power  function 
(or  its  derivative)  has  a corner. 
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DERIV  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TAUPOW 

U 

REAL8 

Negative  inverse  of  characteristic 

degradation  time,  -l/Tj,  in  tau-1. 

TUDFLG 

U 

LOGIC4 

Indicator  for  two  dimensional  trajectory 
simulation  ("2D  flag,f). 
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Name: 


EFM 


Calling  Arguments: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


N,  T,  X,  XD,  INTER 

None 

REAL8 

None 

ALBEDO,  PUNCH,  QSTART,  RADAR,  SPRINT,  SWING, 
SWTRAJ,  TRAJ,  TRAJI 


Discussion:  Subroutine  EFM  is  an  analytical  ephemeris  routine  which  computes 
the  heliocentric  position  and  velocity  of  a planet  or  other  solar  system  object 
In  the  mean  equinox  and  ecliptic  frame  of  date.  Mean  elements  are  evaluated 
as  quadratic  functions  of  time  for  eccentricity  e,  inclination  i,  longitude  of 
node  Q,  longitude  of  periapse  IT,  and  mean  longitude  0.  The  sixth  element, 
the  semi-major  axis  a,  is  assumed  constant  in  time.  Coefficients  and  con- 
stants are  stored  in  data  arrays  for  each  of  the  nine  planets  of  the  solar  system. 
The  values  currently  in  use  are  listed  in  the  table.  The  gravitational  constant 
H for  each  planet  is  obtained  from  the  GM  array.  Provisions  are  available  for 
Inputting  constant  elements  for  an  arbitrary  body,  referred  to  as  Oddball  in  this 
subroutine  description. 


The  mean  elements  are  evaluated  with  the  formulas, 


e = Ve2T+e3T  ' 


t=t1+.2T+i3r  , 


+ ft  t + Cl  t‘ 
12  3 


n=  W + v , 


PRECEDING  page  blank  not 


FILMED 


e = mod  [ensign  (T')(62  |rT  | + 03T'2)]  . 
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where  the  subscripted  characters  denote  stored  coefficients  for  a given  celestial 
body,  T is  the  date  on  which  the  position  and  velocity  are  to  be  evaluated 
measured  in  Julian  centuries  from  January  0.5,  1900,  r'  is  the  same  date 
but  measured  from  January  0.5,  1965,  and  mod  signifies  that  0 is  evaluated 
modulo  277  (i.e.,  0 s 0 <;  277  radians). 

The  constant  elements  for  Oddball  are  input  in  terms  of  the  semi- 
major axis,  the  eccentricity,  the  inclination,  the  longitude  of  ascending  node, 

the  argument  of  perihelion,  U),  and  the  Julian  date  of  perihelion  passage,  t . 

P 

The  eccentricity,  inclination,  and  longitude  of  ascending  node  are  immediately 
stored  in  the  locations  for  e^  i^  and  f^,  respectively.  II  is  equated  to 
+ uj;  r*  is  set  to  the  current  date  minus  the  date  of  perihelion  passage; 

and 

W 

02  = 20077  y 1/a3  . 

The  coefficients  e2,  e3>  i2>  ig,  Og,  II2,  IIg  and  0g  are  set  to  zero, 
and  the  quadratic  equations  defined  above  are  then  used  to  evaluate  the  current 
osculating  elements  for  the  arbitrary  body. 

The  mean  anomaly  M is  evaluated, 

m = e - n, 

from  which  the  eccentric  anomaly  E is  calculated  by  solving  the  equation, 

M = E - e sin  E, 

iteratively  using  Newton's  method.  A total  of  100  iterations  are  permitted 

-15  — 

to  converge  on  E to  a tolerance  of  10  radians.  If  this  number  of  itera- 
tions is  reached,  a message  is  printed  and  the  current  value  of  E is  used  for 
all  subsequent  calculations.  The  argument  of  perigee  to  is  evaluated 

(0=11-0  ■ 

I 
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The  radial  distance  is  then  evaluated, 


r = a(l  - e cos  E), 
and  the  true  anomaly  is  given  by 


f = 2 tan 


■IT  / 1+e  sin  (E/2)  1 

LV  l-e  cos  (E/2)  J 


and  the  position  vector  is  obtained  in  the  orbit  plane  coordinates 


x = r cos  f, 
to 


V = r sin  f, 
•yW 


where  x is  the  component  along  the  perihelion  vector  and  y is  the  com- 
CO  w 

ponent  along  the  semi-latus  rectum,  positive  in  the  sense  of  motion  at  perihelion. 

The  transformation  matrix  A that  expresses  the  position  vector  in  the 
ecliptic  system  used  by  the  program  is  then  evaluated.  This  matrix  is 

p (cos  Ocos  co-  sin  Osin  cocos  i)  (-cos  Osin  co-  sin  Ocos  cocos  i)  "j 

(sin O cos  co+  cos  O sin  cocos  i)  (-sin  Osin  co+ cos  Ocos  cocos  i) 


A = 


cos  co  sm  l 


sin  co  sm  i 

so  that  the  planetary  position  vector  is  defined 

xc 

yco 

The  planetary  velocity  is  first  evaluated  in  orbit  plane  coordinates  as 


R 


-[!“] 


follows : 


x = 
CO 


-sinf 


a(l-e  ) 


„ _ e + cos  f 

y,.r  i v 

a(lV) 


“7 


425 


EFM-3 


and  then  in  ecliptic  coordinates: 


R 


The  planetary  acceleration  is  computed  approximately  as: 

2 2 3/21 


R, 


20  3 2 

where  is  the  sun's  gravitational  constant  (=1,32715445  x 10  m /sec  ). 
s 


i 

i 
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PLANETARY  GRAVITATIONAL  AND  ORBITAL  CONSTANTS  (continued) 


Messages  and  Printouts:  If  the  Newton's  iteration  for  eccentric  anomaly  fails, 
the  following  message  is  printed: 

KEPLERS  EQUATION  ITERATION  FAILS  IN  SUBROUTINE  EFM. 

El  = , El  = , DELTA  = 

where  El  and  El  are  the  values  of  eccentric  anomaly,  in  radians,  on  the  99th 
and  100th  iterations, and  DELTA  is  the  error,  i.e. , the  absolute  value  of  their 
difference.  A looser  tolerance  is  used  when  N = 20,  corresponding  to  Comet 
Halley,  the  orbit  of  which  is  highly  eccentric  and  energetic,  often  causing  the 
tight  iteration  to  fail. 


EFM  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

N 

UX 

Planet  identification  number. 

T 

UX 

Time,  in  days,  measured  from  the 
input  reference  date. 

X(3) 

SX 

Ecliptic  position  vector,  R,  of  planet, 

in  AU. 

GM(50) 

U 

REAL8 

Array  of  planetary  gravitational 
constants,  fi,  in  m*Vsec2. 

XD(3) 

sux 

! 

Ecliptic  velocity  vector,  R , of  planet, 
in  units  of  Earth  mean  orbital  speed. 

CNI 

u 

REAL8 

Ecliptic  inclination  i of  Oddball's 
orbit,  In  radians. 

DEG 

u 

REAL8 

Radians  to  degrees  conversion  factor. 

ECI 

u 

REAL8 

Eccentricity  e of  Oddball's  orbit. 

OMI 

u 

REAL8 

Longitude  of  ascending  node  O of 
Oddball’s  orbit  on  ecliptic,  in  radians. 
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EFM  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SAI 

U 

REAL8 

Semi-major  axis  a of  Oddball's  orbit, 
in  AU. 

SOI 

U 

REAL8 

Argument  of  perihelion  to  of  Oddball's 
orbit,  in  radians. 

TPI 

U 

REAL8 

Time  from  reference  date  to  perihelion 
passage  of  Oddball,  in  days. 

CNIX(5) 

u 

REAL8 

Same  definition  as  CNI,  except  pertains 
to  an  intermediate  target. 

ECIX(5) 

u 

REAL8 

Same  definition  as  ECI,  except  pertains 
to  an  intermediate  target. 

OMIX(5) 

u 

REAL8 

Same  definition  as  OMI,  except  pertains 
to  an  intermediate  target. 

SAEX(5) 

u 

REAL8 

Same  definition  as  SAI,  except  pertains 
to  an  intermediate  target. 

SOIX(5) 

u 

REAL8 

Same  definition  as  SOI,  except  pertains 
to  an  intermediate  target. 

TPIX(5) 

u 

REAL8 

Same  definition  as  TPI,  except  pertains 
to  an  intermediate  target. 

INTER 

ux 

Index  which  selects  an  intermediate 
target. 

SUNMU 

u 

REAL8 

Gravitational  constant  of  the  sun,  u0, 
3/2  S' 

in  meters  /sec  . 

TWOPI 

u 

REAL8 

2 IT. 

EMUODD 

u 

REAL8 

Gravitational  constant  of  Oddball,  in 

metersVsec^. 

EMUODX(5) 

u 

REAL8 

Same  definition  as  EMUODD,  except 
pertains  to  an  intermediate  target. 

TDATEX 

u 

REAL8 

Reference  Julian  date  (minus  2400000). 
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Name: 


EFMPRT 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 


N,  TIME,  X,  XSC,  ANGLE,  STAY 
PDATE 

INTGR4,  REAL8,  SOLSYS 


Entry  Points:  None 

Referencing  Sub-programs:  MORE,  QPRINT 


Discussion:  EFMPRT  is  a contraction  of  "ephemeris  print”,  and  consists  of  the 
portion  of  printout  on  unit  6 beginning  with  the  words  MISSION  SCHEDULE  and 
followed  by  target  and  spacecraft  ephemeris  data  enclosed  within  dashed  lines. 
The  contents  of  a single  set  of  ephemeris  data  (enclosed  within  dashed  lines), 
which  is  generated  by  a single  call  to  EFMPRT,  is  described  in  the  next  section. 


The  computations  performed  in  this  routine  consist  of  the  solar  distances 
of  spacecraft  and  target. 


r = 


r 

P 


rr~i — 2 

yx  + y + z 

f~ 2 2 

=,/x  +y  +z 
V P P 


where  subscript  p refers  to  the  target  (”planet”);  the  ecliptic  latitudes  and  longi- 
tudes of  the  same, 


LAT  , = tan 
s/c 


1 (z  / J x2  + y2  ) 


LAT  =tan‘1(z  /7x2  + y*  ) 
targ  ' p V p p / 


LONGg^c  = tan  1 (y/x) 


LONG,  = tan"1  (y/x) 
targ  P p 
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The  two-  body  transfer  angle  between  the  launch  planet,  having  position 

vector  P , and  the  target,  having  position  vector  P,  is  computed  from 
L 

e = tan-l(staf) 

\ cos  0 / 

where  p . p 

cos  0 = "■  ~ 

and 

7(PlxP)  • (PLxP) 
sin  0 = ± — — 

>LI|P| 

in  which  (±)  = sign  [(P  x P)  • (P  x P_  )]  . 

Li  Li  Li 

Messages  and  printouts:  When  there  are  two,  or  less,  ephemeris  data  sets  (defined 
by  the  dashed  lines)  to  be  printed,  such  as  when  simulating  missions  involving  Earth 
launch  and  a single  (primary)  target,  the  output  from  EFMPRT  will  appear  on  the 
same  page  as,  and  beneath,  the  Extremum  Points  of  Selected  Functions  table. 
Otherwise,  when  there  are  three  or  more  ephemeris  data  sets  to  be  printed,  such 
as  when  there  are  intermediate  targets  present,  the  output  will  begin  at  the  top  of 
the  next  page,  with  the  case  identification: 

CASE 

The  general  heading  is  printed: 

MISSION  SCHEDULE 

followed  by  sequential  groups  of  information  separated  by  dashed  lines.  Each  group 
of  information  consists  of  the  following: 

(month)  (day)  (year)  (hour)  G.  M.T. 

JULIAN  DATE 
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In  which  the  month,  day,  year,  and  hour  (Greenwich  mean  time)  and  the  corres- 
ponding Julian  date  of  the  trajectory-segment  endpoint  associated  with  the  named 
target  is  displayed,  followed  by 

(maneuver)  (target  name)  (AT  (speed)  KM/SEC) 

where  "maneuver"  is  DEPART,  ARRIVE,  or  PASS  depending  on  whether  the  space- 
craft-target  relationship  is  departure  (launch  or  departure-after-rendezvous),  arrival 
(rendezvous  or  orbiter),  or  flyby;  "target  name"  is  the  name  of  the  target;  and  the 
remainder  of  the  line  appears  only  if  "maneuver"  is  PASS,  in  which  the  flyby  speed 
is  printed. 

This  is  followed  by  two  lines  of  target  (PLANET)  and  spacecraft  (S/C) 
ephemeris  data: 

X Y Z XDOT  YDOT  ZDOT  RADIUS  LAT.  LONG. 

PLANET 

S/C 

in  which  X,  Y,  Z is  the  position  in  AU;  XDOT,  YDOT,  ZDOT  is  the  velocity  in 
EMOS,  these  two  vectors  being  expressed  in  ecliptic  coordinates  of  date;  RADIUS 
is  the  magnitude  of  the  position  vector  in  AU;  LAT.  and  LONG,  are  the  ecliptic  latitude 
and  longitude  of  the  position  vector,  in  degrees. 

Finally,  the  two-body  transfer  angle  6 between  the  original  departure  planet 
(which  is  usually  the  launch  planet,  Earth)  and  the  target  in  question  is  printed  in 
degrees : 

TWO-BODY  TRANSFER  ANGLE  BETWEEN  \ AND  t2  IS  0 DEGREES. 

where  t is  the  launch  planet  name  and  t is  the  name  of  the  target. 

1 » 
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EFMPRT 


EJFMPRT-7 
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Name: 


Calling  Argument: 


ETA 

VJ,  ETAOP,  DETAOP  for  ETA; 
BI,  DI,  El  for  ETAINT 


Referenced  Sub-programs:  None 

Referenced  Commons:  REAL8 

Entry  Points:  ETAINT 

Referencing  Sub-programs:  TRAJ  for  ETA; 

QSTART  for  ETAINT 

Discussion:  This  routine  computes  the  total  thruster  subsystem  efficiency, 

2 


be 


2 -,2 

c +d 


+ e 


and  its  derivative, 


±ZL  =2JL(  i - M 

dc  c V 1 b > 


where  c is  the  jet  exhaust  speed  and  b,  d,  and  e are  coefficients  which  characterize 
the  thruster  hardware  being  simulated. 

Entry  point  ETAINT  performs  initialization  for  subroutine  ETA  at  the  be- 
ginning of  each  case  of  the  computer  run,  avoiding  unnecessary  repeated  computa- 
tions during  an  iteration  sequence. 
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ETA  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

BI 

UX 

Efficiency  coefficient,  b. 

DI 

ux 

Efficiency  coefficient,  d,  in  km/sec. 

El 

UX 

Efficiency  coefficient,  e. 

VJ 

ux 

Electric  propulsion  jet  exhaust  speed, 
c,  in  EMOS. 

CONSP 

u 

REAL8 

Speed  conversion  factor,  EMOS  to 
meters/second. 

ETA  OP 

sux 

Total  thruster  subsystem  efficiency,  rj. 

D ETA OP 

sx 

Efficiency  derivative,  dTj/dc,  in  EMOS  \ 

o 
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Name: 


EXTAB 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 


None 

EXTREM,  INTGR4,  LOGIC4,  REAL8 
None 

FINISH,  MORE 


Discussion:  This  routine  prints  the  "Extremum  Points  of  Selected  Functions" 

(on  unit  6),  and  is  the  final  subroutine  in  the  sequence:  CHECK-*  LOAD-*  STORE-* 
EXTAB.  The  Extremum  Table  is  limited  to  100  entries  (lines)  per  trajectory,  to 
conserve  storage  space.  This  limit  has  never  yet  been  exceeded,  except  in  instances 
where  erroneous  trajectory  starting  conditions  resulted  in  an  extraordinary  (and  use- 
less) trajectory. 

Remarkable  parameters  on  each  line  are  dubbed  with  MAX  or  MIN  to  denote 
an  extremum  value,  * to  denote  a special  point  (i.e.,  special  solar  distance),  or 
ON  or  OFF  to  denote  thrust  switching  events  and  also  solar  array  orientation 
switching  to  and  from  the  maximum  power  boundary. 

Messages  and  printouts:  The  standard  informative  output  of  this  subroutine  is  as 
follows: 

CASE  (n) 

EXTREMUM  POINTS  OF  SELECTED  FUNCTIONS 

SWITCH 
FUNCTION  ’ * * 

-J2±- 


I TIME 


JiL 


JtL 


ECLIPTIC 

LONGITUDE 

<V 


SOLAR 

DISTANCE 

_j£l_ 


COMMUNICATION 
ANGLE  DISTANCE 


(6  ) 

com 


(r  ) 
com 
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EXTAB -1 


THRUST  ANGLES 

INPUT 

ARRAY 

PSI 

THETA 

PHI 

POWER 

ANGLE 

J£l_ 

_£0L 

W 

JeL_ 

JX1_ 

where  n is  the  case  number,  i is  the  number  of  iterations  required  in  subroutine 

INTERP  to  isolate  the  remarkable  point,  t is  the  time  elapsed  since  the  beginning 

of  the  trajectory  (in  days),  0 is  the  elapsed  ecliptic  longitude  (in  degrees),  r is 

the  spacecraft  solar  distance  (in  AU),  0 and  r are  the  "communication” 

com  com 

angle  (in  degrees)  and  distance  (in  AU)  with  respect  to  a reference  body  specified 
by  program  input  quantity  NDIST,  a is  the  thrust  switching  function,  0,  0,  and 
0 are  the  thrust  angles  (in  degrees)  identical  to  those  output  in  the  trajectory  block 
print,  p is  the  power  input  to  the  power  conditioners  (in  kw),  and  x is  the  solar 
array  tilt  angle  (in  degrees). 


EXTAB  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

CHIX(2, 100) 

SU 

EXTREM 

Storage  array  for  solar-panel  array 
angle,  X.  in  degrees. 

DIST(2, 100) 

u 

EXTREM 

Storage  array  for  spacecraft  solar 
distance,  r,  in  AU. 

MODE 

u 

INTGR4 

Power  variation  option  selector. 

MPOW 

u 

INTGR4 

Maximum  or  optimum  power  indicator 
during  solar  panel  degradation  option. 

TIME 

(100) 

u 

EXTREM 

Storage  array  for  time  elapsed  since 
start  of  trajectory,  t,  in  days. 

TRAV 

(100) 

u 

EXTREM 

Storage  array  for  ecliptic  longitude 
elapsed  since  start  of  trajectory,  in 
degrees. 
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EXTAB  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ERODE 

U 

LOGIC4 

Power  degradation  option  indicator. 

KOUNT 

U 

INTGR4 

Case  counter. 

NSPEC 

u 

INTGR4 

Master  array  index  (and  counter)  for 
storage  arrays ; has  maximum  value 
in  subroutine  EXTAB,  corresponding 
to  trajectory  endpoint. 

ONOFF 

(2,100) 

u 

EXTREM 

Storage  array  for  thrust  switching 
function,  a. 

POWEX 

(2,100) 

u 

EXTREM 

Storage  array  for  power  ratio,  y . 

XMASS(7) 

u 

REAL8 

Mass  and  related-parameter  array; 
XMASS(6)  is  reference  power,  p 
in  watts. 

AKOUNT 

(100) 

u 

EXTREM 

Storage  array  for  the  number  of  itera- 
tions required  to  isolate  the  associated 
point. 

ANGCOM 

(2,100) 

u 

EXTREM 

Storage  array  for  communication 

angle,  6 , in  degrees. 

° com 

ANGPHI 

(2,100) 

u 

EXTREM 

Storage  array  for  thrust  angle  0 , 
in  degrees. 

ANGPSI 

(2,100) 

u 

EXTREM 

i 

Storage  array  for  thrust  angle  ip, 
in  degrees. 

ANGTHE  1 
(2,100) 

u 

EXTREM 

Storage  array  for  thrust  angle  6 , 
in  degrees. 

COMANG 

s 

REAL8 

Communication  angle  at  time  of 
primary-target  intercept,  in  degrees. 

COMDIS 

s 

REAL8 

Communication  distance  at  time  of 
primary-target  intercept,  in  AU. 

457 


EXTAB- 


EXTAB  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

DISCOM 

U 

EXTREM 

Storage  array  for  communication  . 

(2, 100) 

distance,  r , in  AU. 

com 

RTSWIT 

u 

REAL8 

Critical  solar  distance  corresponding 
to  a special  point  in  the  solar  power 
curve,  in  AU. 
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Name: 


FINISH 


Calling  Argument:  None 


Referenced  Sub-programs : 


Referenced  Commons: 


CORNER,  EXTAB,  PRINT,  PRINTR,  PUNCH, 
QPRINT,  SUMMRY,  TRAJ 

INTGR4,  ITERAT,  LOGIC4,  REAL8 


Entry  Points:  None 

Referencing  Sub-programs:  MAIN,  TIKTOK 


Discussion:  This  routine  "finishes”  each  case  of  the  computer  run.  It  executes 
the  so-called  Summary  Trajectory  (QJEX  = .TRUE. : CALL  TRAJ),  in  which  de- 
tailed trajectory  information  is  output.  It  updates  the  iterator  independent-variable 
values,  if  desired.  It  outputs  these  values,  and  also  the  dependent-variable  values, 
on  units  6 (PRINTR)  and  11  (PRINT);  it  prints  the  Extremum  Table  (EXTAB)  and 
Summary  Page  (QPRINT (5))  on  unit  6,  stores  selected  case  information  (SUMMRY), 
provides  control  when  the  trajectory  is  in  high  proximity  to  a propulsion-time 
corner  (CORNER),  and  optionally  punches  onto  cards  or  writes  onto  magnetic  tape 
selected  trajectory  and  performance  information  (PUNCH). 


FINISH  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

0(70) 

U 

ITERAT 

Array  of  iterator  independent  variables, 
in  internal  units. 

BX(5, 70) 

S 

ITERAT 

Iterator  independent-variable  value  and 
control  array. 

00(70) 

SU 

ITERAT 

Array  of  iterator  independent  variables, 
in  external  units. 

GAP 

u 

REAL8 

! 

Propul sion -corner  proximity  tolerance- 
interval,  A o. 
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FINISH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

NPR  (4) 

U 

INTGR4 

Printout  amount  control  array. 

CONX(70) 

U 

IT  ERA  T 

Array  of  iterator  independent-variable 
conversion  factors,  initialized  in  sub- 
routine BEGIN. 

HUNG 

u 

LOGIC4 

Indicator  for  the  condition  in  which  the 
trajectory  is  in  high  proximity  to  a 
propuls  ion -time  corner;  ,rhung  on  a 
thrust  phase  or  a coast  phase”. 

QJEX 

s 

LOGIC4 

Detailed  printout  indicator. 

ERROR 

UA 

LOGIC4 

Program  master  error  indicator. 

EXTRA 

S 

LOGIC4 

Indicator  for  extra  printout  at  each 
computation  step  (trajectory  block  print). 

JHUNG 

U 

INTGR4 

Controls  generation  of  extra  cases 
when  condition  indicated  by  HUNG  is 
applicable. 

KOUNT 

A 

INTGR4 

Case  counter. 

TRACK 

S 

LOGIC4 

Indicator  for  trajectory  long  block 
printout  (at  each  computation  step). 

CONVRG 

U 

LOGIC4 

Iteration  sequence  convergence  indicator. 

MPRINT 

U 

INTGR4 

Indicator  for  printout  amount  at  each 
computation  step. 

MPUNCH 

U 

INTGR4 

Indicator  controlling  card  punching  and 
magnetic  tape  generation. 

MUPDAT 

U 

INTGR4 

Indicator  for  updating  iterator  inde- 
pendent-variable values. 

PLANET 

u 

LOGIC4 

Ephemeris-option  indicator. 

FINISH-3 


FINISH-5 


FINISH-7 
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Name: 


FUNCT 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 


GO 

SOLAR,  THANG,  THANGD 
LOGIC4,  REAL8 


£ 


too? 


Entry  Points:  None 

Referencing  Sub-programs:  CHECK,  STEP,  TAP 

Discussion:  The  name  FUNCT  is  short  for  "function",  and  the  purpose  of  the  routine 
is  to  compute  and  store  certain  function  values  which  are  auxiliary  with  respect  to 
the  local  integration  of  the  equations  of  motion  (subroutine  DERIV  or  ANSTEP),  but 
which  are  necessary  for  the  isolation  of  remarkable  points  (subroutine  CDERIV), 
which  fundamentally  affect  the  whole  trajectory  solution.  Examples  of  essential  re- 
markable points  are  thrust  switch  function  roots  and  critical  solar  distances  repre- 
senting corners  in  the  power  curve. 

Four  functions  are  computed  and  their  values  are  maintained  at  the  start  of 
the  current  computation  step  and  at  the  end  of  the  step  (instantaneous  values):  solar 
distance,  r;  primer  vector  magnitude,  X;  thrust  switch  function,  C;  and  thrust 
switch  function  time-derivative,  a.  Certain  computations  are  bypassed  if  the  value 
in  question  has  already  been  computed  in  subroutine  DERIV  or  ANSTEP,  in  which 
case  the  value  is  immediately  available  in  COMMON. 

Solar  distance  r (of  the  spacecraft)  is  always  available  from  either  DERIV 
or  ANSTEP,  and  therefore  is  merely  stored  in  FUNCT.  The  primer  magnitude  X 
Is  available  from  DERIV,  during  thrusting  flight,  but  not  from  ANSTEP,  during 
coasting  flight,  and  so  must  be  directly  computed. 


x = yx-A, 


before  it  is  stored. 

The  bulk  of  the  subroutine  is  involved  with  the  computation  of  the  thrust  switch 
function  o and  its  time  derivative.  In  the  usual  exposition  of  the  subject  of  optimal 


rocket  flight,  the  thrust  switch  function  is  displayed  as 


V K 

a = fLZ£  ^ a • e - — -)+A  d + A , 

v \ t c / s T 


where  the  symbols  used  in  this  discussion  are  defined  in  the  Nomenclature  section. 
However,  the  actual  form  of  the  switch  function  used  internally  in  the  program  con- 
sists of  the  above  expression  multiplied  by  the  positive  factor  tVgyq, 

v\ 

- V V 

O = A * e. + (A  d + A ) = cr  +cr  +o  (respectively). 

t c gyq  s T 1 2 3 ' 

The  time  derivative  is  a somewhat  cumbersome  expression  obtained  from  the 
straightforward  differentiation  of  the  above  expression.  Thus 


a = ai  + CW 


where 


a.  - -rr  [A*  e,  ] = A • e + A • e , 
1 at  t t t 


» d+x.)i- 

3 g dt  Lyq  v s T J 


Upon  substituting  the  expressions  for  the  differentia;!  equations 


v = - K 


X = h A • e ) , 

v a 2 t 

v 


into  the  above  expression  for  o , the  result  is  obtained, 

z 


„ .A  A‘  eA  . 

i =h  1), 

2 a c V c v ) 
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which  has  value  zero  during  coasting  flight,  due  to  the  presence  of  the  factor  h^. 
Upon  substitution  of  the  differential  equations 

q = - qd/Td  , 


d, 


)■ 


into  the  expression  for  a and  rearranging  terms,  one  obtains 

O 


V^[7L(VV'f<xs+~d1))] 


in  which  the  factor  p/gyq  is  the  inverse  of  the  instantaneous  acceleration,  l/a. 

In  the  program,  the  acceleration,  a,  is  used  in  place  of  gyq/^ , and  special  pre- 
cautions are  taken  for  situations  where  the  acceleration  tends  toward  zero  (vanishes) 
along  the  trajectory,  such  as  when  the  solar  array  tilt  angle  tends  toward  90  . 

The  time  derivative  of  the  density  is  zero  (d  = 0)  when  the  solar  panels 
are  tilted  so  as  to  maintain  constant  power;  when  the  spacecraft  is  at  a sufficient 
distance  from  the  sun  such  that  the  solar  arrays  are  maintained  normal  to  the  sun 
line,  the  density  derivative  is  given  by 


r 


When  the  solar  arrays  are  tilted  to  such  a degree  that  less  power  than  the  maximum 
instantaneous  power  is  being  accepted,  which  may  occur  when  solar  panel  degradation 
is  being  simulated,  then 
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w 


+ 


Actually,  By/Bd  and  B y/3d  are  total  derivatives,  but  the  partials- symbol, 
3 , is  used  to  avoid  confusion  with  the  symbol  for  density,  d. 

The  term  X dp/gyq,  which  is  one  component  of  cr  , gives  numerical 

S o 

difficulty  when  d tends  toward  zero,  in  which  case  y also  vanishes.  However, 


Lim 

d-0 


where  aQ  is  the  leading  coefficient  in  the  solar  power  law.  Therefore,  the 

troublesome  term  cr  is  computed  as  X l-'/g  a q whenever  the  instantaneous 

3 so  _14 

acceleration,  a = gyq/V,  is  less  than  a very  small  number  (10  ),  unless  the 

propulsion-time  adjoint  variable  Xy  is  nonzero,  in  which  case  ct  is  set  to  10 

O 

sign  (X  ) since  the  other  component  of  O , v\  /gyq,  then  dominates. 
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FUNCT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

R(2) 

SU 

REAL8 

Spacecraft  solar  distance,  r,  at 
start  of  computation  step  (R(l))  and 
instantaneously  (R(2)),  in  AU. 

X(50) 

UA 

REAL8 

Array  of  trajectory  dependent- 
variables.  (See  subroutine  RKSTEP). 

FT 

U 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

GO 

j 

ux 

Logical  indicator  for  stepping  forward; 
when  true,  perform  saving  operation; 
when  false,  bypass  saving  operation. 

PP(2) 

SU 

REAL8 

Primer  magnitude,  X , defined 
similar  to  R(2). 
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FUNCT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

RC 

U 

REAL8 

3 

Cube  of  spacecraft  solar  distance,  r , 
in  AU3. 

RT 

UA 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 

XD(50) 

U 

REAL8 

Array  of  trajectory  dependent-variable 
derivatives;  XD(17)  is  dt/d£=  r , used 
for  conversion  from  generalized 
derivatives  to  time  derivatives. 

ACC 

su 

REAL8 

Thrust  acceleration,  a,  in  AU/tau2. 

AVJ 

u 

REAL8 

Inverse  of  jet  exhaust  speed,  l/c,  in 
EMOS'1. 

A1S 

u 

REAL8 

Leading  power-law  coefficient,  aQ. 

ETH  (3) 

su 

REAL8 

Thrust  unit  vector,  et« 

PLC 

su 

REAL8 

First  component  of  thrust  switch 
function,  0^. 

PMN 

| 1 

su 

REAL8 

Primer  magnitude,  X. 

PMS 

su 

REAL8 

2 

Square  of  primer  magnitude,  X . 

ETHD(3) 

U(S) 

REAL8 

Thrust  unit  vector  time-derivative,  e , 
_1  i 

in  tau  . 

HEAT 

u 

LOGIC4 

Indicator  for  maintaining  solar  panels 
normal  to  sun  at  all  times,  including 
during  high  solar  proximity. 

POWR 

U(S) 

REAL8 

Power  ratio,  yq. 

SWIT 

su 

REAL8 

o + a . 
1 2 

ALTAU 

u 

REAL8 

Propuls  ion -time  adjoint  variable,  X^. 

COAST 

u 

LOGIC4 

Indicator  for  coasting  flight  or  thrust- 
ing flight;  used  in  place  of  h^ . 
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FUNCT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

DPOWR 

U(S) 

REAL8 

ERODE 

U 

LOGIC4 

PCURV 

u 

LOGIC4 

PMDOT 

su 

REAL8 

DEGRAD 

U(S) 

REAL8 

DENSIT 

U(S) 

REAL8 

DPOWDD 

U(S) 

REAL8 

DWITCH(2) 

su 

REAL8 

FIXTAU 

u 

LOGIC4 

FEXTHR 

u 

LOGIC4 

REGION 

u 

LOGIC4 

SWITCH  (2) 

su 

REAL8 

TAUPOW 

u 

REAL8 

Description 


q dy/dr. 

Power  degradation  option  indicator. 

Indicator  for  condition  in  which  solar 
arrays  are  oriented  to  receive  the 
maximum  power  permissible  under 
the  current  power-curve  assumption, 
or  to  be  tilted  away  from  the  maximum 
permissible  due  to  degradation  consi- 
derations. 

Primer-magnitude  time  derivative.  A’ . 

Degradation  damage  factor,  q. 

Power  particle-density  function,  d,  in 
AIT2. 

qS2y/Sd2. 

cr,  defined  similarly  to  R(2), 

Indicator  for  non-zero  A . 

T 

Indicator  for  fixed  thrust-angle. 

Indicator  for  spacecraft  solar  proximity; 
demarks  two  possible  regions  in  space, 
separated  by  sphere  about  sun  of 
specified  radius,  at  which  power 
function  (or  its  derivative)  has  a corner. 

Thrust  switch  function,  ff,  defined 
similarly  to  R(2). 

Negative  inverse  of  characteristic  de- 
gradation time,  -l/r.,  in  tau-1. 

a 


iGDOT 


Name: 


GET  I 


Calling  Argument:  V,  DECL 

Referenced  Sub-programs : GUNTHR 

Referenced  Commons:  GUNCOM,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  OMASS 


Discussion:  FUNCTION  subroutine  GET  I obtains,  by  iteration,  the  optimum 
parking  orbit  inclination  i whenever  the  departure  asymptote  declination  6 is 
sufficiently  large  in  magnitude  to  warrant  a non-due-east  launch,  and  provided 
the  optimization  of  i has  not  been  assigned  to  the  MINMX3  iterator  via  sub- 
routine GET  Q. 

The  transversality  function  whose  root  is  obtained  by  Newton's  iteration  is 


T(i)  = 2c1i  + c2 


where  c and  c9  are  coefficients  in  the  expression  for  the  characteristic-speed 
1 2 

penalty  associated  with  a non-due-east  launch,  v is  the  minimum  incremental 
speed  in  departing  the  parking  orbit  (the  symbol  Av  is  used  in  the  description  of 
subroutine  GUNTHR) , and  l is  the  departure  asymptote  out-of-plane  angle. 


The  initial  guess  for  the  optimum  t is  obtained  by  generating  a grid  of  ten 
values  of  i between  the  values  of  the  launch  site  latitude  and  the  declination  5 , 
and  selecting  the  value  of  i from  that  grid  for  which  |t (i)  | is  a minimum.  The 
derivative  3T(i)/di  used  in  Newton's  iteration  is  constructed  by  finite  differences, 


2 2 

since,  although  3v  /Si  is  available  from  subroutine  GUNTHR,  9 v /Si  is 
g 00  g 00 

not.  Finally,  if,  during  the  iteration,  the  value  of  i converges  asymptotically  to 

the  value  of  the  launch  site  latitude,  the  iteration  is  forced  to  quit,  and  i is  set 

equal  to  the  launch  site  latitude  in  value. 


487 


GETI-1 


Messages  and  printouts:  Should  Newton’s  iteration  to  obtain  the  optimum  parking 
orbit  inclination  fail  (exceed  100  steps),  the  iteration  is  halted,  the  error  indi- 
cator is  set,  and  the  following  is  printed  on  unit  6 : 

MAX  ITERATIONS  TO  GET  PARKING  ORBIT  INCLINATION 
INCLINATION  = (i)  DEGREES  F = (T(i>)  DELXIN  = (Ai) 

where  i is  the  inclination,  in  degrees,  T(i)  is  the  function  whose  root  is  sought, 
in  EMOS/radian,  and  Ai  is  the  inclination  iteration-step-size,  in  radians,  all 
at  the  last  step  of  the  iteration.  Concurrently,  the  message  is  printed  on  unit  12: 

MAX  ITERS  TO  GET  I (i) (T(i)) (Ai) 


GET  I EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

V 

UX 

Departure  hyperbolic  excess  speed,  v , 
in  EMOS.  “ ° 

AAA 

U 

REAL8 

Non-due-east  velocity  penalty  coefficient, 
c^,  in  EMOS/radian^. 

BBB 

u 

REAL  8 

Non-due-east  velocity  penalty  coefficient, 
c , in  EMOS/radian. 

tit 

DEG 

u 

REAL8 

Radians  to  degrees  conversion  factor. 

100 

su 

GUNCOM 

Out-of-plane  angle,  i , in  radians. 

QO 

voo 

s 

GUNCOM 

Departure  hyperbolic  excess  speed,  v , 
in  EMOS.  ®° 

ANG1 

u 

REAL8 

Launch  site  latitude,  in  radians. 

DECL 

UX 

Departure  asymptote  declination,  6 , 
in  radians. 

GET  I 

sx 

Parking  orbit  inclination,  i,  in  radians. 

DVI00 

u 

GUNCOM 

3v  /di  , in  EMOS/radian. 
g “ 

ERROR 

s 

LOGIC4 

Program  master  error  indicator. 
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Name: 


GETQ 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs : 


None 


None 


6^ 


GUNCOM,  INTGR4,  ITERAT,  ITER2,  LOGIC4,  REAL8 


None 


TRAJ 


Discussion:  Subroutine  GETQ  generates  the  values  of  the  iterator  (active)  dependent- 
variables,  which  are  contained  in  the  Q array.  All  trajectories  are  integrated  for- 
ward from  the  launch  date  t and  are  terminated  at  the  time  (t  - t ) later.  Primary 

o no 

target  conditions  are  computed  using  the  variables  evaluated  at  this  trajectory  termina- 
tion time.  For  multiple-target  missions  in  which  intermediate  targets  are  present,  the 
integration  is  interrupted  at  intermediate  times  t^  and  appropriate  quantities  are 
stored  for  the  computation  of  dependent  conditions.  The  total  (active  and  inactive) 
iterator  dependent-variable  array  is  the  FXL  array;  this  array  is  allocated  the 
same  as  the  iterator  dependent-variable  array  Yi  which  is  input  to  the  program. 
However,  only  the  required  subset  of  the  FXL  array  is  computed,  since  the  logical 
selection-array  ABY  causes  the  bypass  of  FXL  computations  which  are  not  required. 
The  condensed  array  Q is  then  obtained  from  the  expanded  array  FXL  by  employing 
the  index-set  array  MM  at  the  end  of  the  subroutine. 

The  Fortran  statement  numbers  1,  2,  3,  ...,  70  correspond  to  the  index  of 
the  FXL  array,  similar  to  the  Yi  array  input  to  the  program,  and  the  documentation 
on  the  latter  should  be  referenced  to  determine  which  end  conditions  or  transversality 
conditions  are  being  computed  in  conjunction  with  a given  Fortran  statement  number. 
Within  each  set  of  computations  associated  with  a given  Fortran  statement  number, 
only  one  of  the  IF  tests  will  hold  true  at  any  given  time  (i.e.,  during  any  given  case 
of  the  computer  run).  These  IF  tests  contain  the  logical  variables  A1A,  A1B,  A1C, 
A2A, ..  .A69A,  A70A  which  are  defined  in  subroutine  SETUP  and  which  correspond  to 
the  trigger  settings  of  the  individual  iterator  dependent -variables  input  to  the  program. 
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At  the  beginning  of  the  subroutine,  a function  FOIL'  (AJ.,  A2)  is  defined,  which 
simply  computes  the  ratio  A1/A2  and  foils  the  computer  from  printing  overflow 
messages  when  A2  is  extremely  small. 

The  only  FXL  computations  which  are  not  grouped  under  their  respective 
Fortran  statement  numbers  are  those  corresponding  to  the  targeting  and  transversal ity 
conditions  for  extra-ecliptic  missions  when  program  input  quantity  IOUT  = 2,  and  these 
consist  of  six  conditions  computed  at  the  top  of  the  subroutine,  the  first  three  of  which 
correspond  to  specified  final  semi-major  axis  a,  eccentricity  e,  and  inclination  i 
(to  the  ecliptic),  and  the  latter  three  of  which  are  transversality  conditions  which 
yield  the  optimization  of  the  unspecified  final  orbital  parameters  co  (argument  of  peri- 
helion), ft  (node),  and  f (true  anomaly): 

h • C = 0 , 
k • C = 0 , 

^ (A  * R)  + r2  (A  • R ) = 0 , 

^ A 

where  h is  the  unit  angular  momentum  vector  of  the  final  orbit,  k is  the  unit  vector 
normal  to  the  ecliptic  (northward),  and  C is  the  vector  constant  of  the  motion  defined 

by 

C = (R  x A)  - (R  x A). 


The  final  orbital  elements  a,  e,  and  i are  computed  as  follows: 


2 2 2 2 
r = x +y  + z , 


2 .2  -2  • 2 

v =x  + y + z , 


d=xx +yy +zz , 

/ 2 
a = r/  (2  - r v ) 


/ d 2 2 

e = V T +(rv  _1) 
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h = RxR/  |r xR  | , 

-1  A 

i = cos  (h  ) . 

z 

The  above  computations  appear  above  Fortran  statement  number  1 in  the  source 
listing.  The  remainder  of  the  computations  are  catalogued  under  Fortran  statement 
numbers  as  described  earlier. 

Denoting  a specific  target's  position  and  velocity  as  P and  respectively, 
a constraint  on  the  spacecraft  position  R^  is  imposed  by  nulling  the  position  error; 
i.e. , by  forcing  the  satisfaction  of  the  equation 

AR.  = R.  - P.  = 0. 

i i i 

Similarly,  a constraint  on  the  spacecraft  velocity  R.  is  imposed  by  nulling  the 
velocity  error, 

AR.  =R.  - P.  - V . = 0, 

Lit  “l 

where  V is  the  arrival  excess  velocity  at  the  i^  target.  These  equations  apply 
“i 

both  to  the  primary  target,  FXL(l)  through  FXL(6)  with  trigger  settings  of  1 (see 
program  inputs  Yi),  and  to  intermediate  targets,  FXL(41)  to  FXL(46),  FXL(51)  to 
FXL(56),  and  FXL(61)  to  FXL(66)  with  trigger  settings  of  1.  (Trigger  settings  of 
I-  correspond  to  logical  indicators  A1A,  A2A,  A3A,  ...»  A41A,  ...,  A44A,  etc. 
being  .TRUE. , where  the  final  "A"  in  these  Fortran  variable  names  refers  to  the 
trigger  setting;  a final  "B"  corresponds  to  a setting  of  2,  etc.) 

The  open  angle  option  is  restricted  to  problems  of  two-dimensional  motion 
In  the  x-y  plane.  The  option  is  designed  specifically  for  the  problem  of  open  angle 
transfer  from  a given  point  to  a specified  solar  distance  r^.  This  target  condition 
is  written,  simply, 

|Rnl=rf. 

where  the  subscript  n denotes  the  primary,  or  final,  target.  This  corresponds  to 
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FXL(1)  under  A1B.  The  capability  of  imposing  circular  orbit  conditions  at  this  solar 
distance  is  also  available.  This  vector  target  condition  is  written  in  the  form  of  a 
velocity  error  as  follows: 


AR  = R 

n 


where  H is  the  gravitational  constant  of  the  sun  and  k is  a unit  vector  along  the 
z-axis.  This  applies  to  the  x and  y components  of  velocity  and  corresponds  to 
FXL(4)  and  FXL(5)  under  A4A  and  A5A  (similar  to  the  general  relation  for  AR. 
above). 


Relations  governed  by  A1C,  A2C,  A3C,  A4C,  and  A5C  apply  to  optimum  de- 
parture maneuvers  from  a circular  parking  orbit  about  Earth  (using  electric  pro- 
pulsion or  high  thrust  nuclear  or  chemical  propulsion)  and  are  given  in  the  description 
of  subroutine  VPRINT. 

Extra-ecliptic  targeting  conditions  associated  with  program  input  quantity 
lOUT  = 1 are  generated  by  subroutine  GET  RV  and  are  computed  via  FXL(l)  through 
FXL(6)  under  a trigger  setting  of  1. 

Position  and  velocity  at  intermediate  targets  are  continuous.  The  intercept 
of  an  intermediate  target  is  achieved  by  imposing  a constraint  on  the  position  error. 
At  the  i**1  target,  this  constraint  maybe  written 

AR.  = R.  - P.  = 0. 

ill 

This  corresponds  to  FXL(41),  FXL(42),  and  FXL(43)  for  the  first  intermediate  target, 
FXL(51)  through  FXL(53)  for  the  second  intermediate  target,  and  FXL(61)  through 
FXL(63)  for  the  third  intermediate  target.  One  may  optionally  constrain  the  passage 
speed  ' v at  an  intermediate  target.  The  constraint  equation  for  this  is 

AR.  = R.  - P.  - V . = 0. 

i i i ®i 

This  corresponds  to  FXL(44)  through  FXL(46)  for  the  first,  FXL(54)  through  FXL(56) 


I 
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for  the  second,  and  FXL(64)  through  FXL(66)  for  the  third  intermediate  target, 
respectively,  with  trigger  settings  of  1. 

When  the  flight  time  from  launch  to  time  of  primary-target  intercept  is  con- 
strained, the  end  condition  is  computed  via  FXL(16)  under  A16C: 

t = t - t , 
max  n o 

where  t is  the  specified  total  flight  time  and  t and  t are  the  launch  and  pri- 
max  o n 

mary-target  intercept  times,  respectively. 

The  capability  for  constraining  propulsion  time  is  implemented  through 
satisfaction  of  the  optional  end  condition, 


t 

n 


o 


where  h is  the  thrust  step  function  and  T,  is  the  desired  propulsion  time.  This 
a f 

is  computed  using  FXL(8)  under  the  logical  trigger  A8B. 

Several  spacecraft  parameters  are  available  as  constraints.  These  are  the 

net  spacecraft  mass,  m , using  FXL(7)  and  A7C,  the  intermediate-target  drop 

masses  m,  . under  FXL(50),  FXL(60),  and  FXL{70),  the  sample  masses  m 
drop  l 

under  FXL(49),  FXL(59),  and  FXL(69),  and  the  reference  power,  p j,  under  FXL(11) 
governed  by  A11C.  Also  available  as  constraints  are  virtually  all  of  the  iterator  in- 
dependent-parameters, under  a trigger  setting  of  2 for  each  FXL(i). 

The  above  constitutes  the  discussion  for  the  two-point  boundary  value  problem 
end-conditions  except  for  the  transversality  conditions.  The  application  of  the  in- 
direct method  of  optimization  leads  to  a set  of  necessary  conditions  known  as  trans- 
versality conditions,  that  must  be  satisfied  by  the  solution.  For  a given  performance 
index  IT  which  is  to  be  minimized,  the  general  equation  for  the  transversality  condi- 
tions is  written 
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LI 

77  + V fA'dR-A'dR  + A dt^+A  dg+A  dc  + A.d' 
_ L v g ° c 0 


+ A dT-hdtl  =0. 

T v j. 

l-l 

The  convenient  choice  is  made  whereby  A , A , and  A , are  forced  to  be  continuous 

g c 0 

at  each  intermediate  target,  which  means  that,  for  example,  only  A (t  ) need  appear 

g 71 

in  the  derived  transversality  expressions  rather  than  the  cumbersome  expression 

. n-1 

A (t  )-  T (A  +(t.)  - A " (t.))-A  (t  ). 
g n'  L g i'  g t g o 
i = l 

This  is  because  A (t  ) alone,  with  A (t  ) = 0 and  A +(t.)  = A (t.)  for  each  i,  has 
g n go  g i g i 

the  same  value  as  the  cumbersome  expression  cited  above  if  A (tQ)  -were  not  zero 

and  A (t  ) were  not  continuous,  and  this  is  due  to  the  absence  of  A in  the  differential 
g i g 

equations,  the  same  being  true  for  A^  and  A . The  scalar  k is  an  arbitrary  positive 
constant  which  expresses  the  arbitrariness  of  the  performance  index;  in  other  words, 
the  minimization  of  77  is  equivalent  to  the  minimization  of  277,  377, ... , etc.  k 
effectively  renders  the  general  transversality  condition  linear  and  homogeneous  in  the 
adjoint  variables,  thus  allowing  the  elimination  of  one  terminal  condition  from  the  pro- 
blem by  appropriate  choice  of  a value  for  k.  This  particular  aspect  of  the  problem  is 
discussed  more  thoroughly  in  the  description  of  subroutine  TRAJ. 

All  available  transversality  conditions  are  derived  for  the  problem  of  maximiz- 
ing net  spacecraft  mass,  i.e.,  77=  -m  j . From  the  earlier  definition  of  m ,,  one 

net  net 

may  write 

77=  j m +m  f k + k,  -(1+k,)^  +j  (l  + k.)e  f" (1  + j k ) V 
Jr  rs  o t s t t n r rt  xL  t t n 


- j.k.  (1  + T (k  .-k.  .))!+  (1  + k.)  Y k 

•'t  tv  t->  ' samp  i drop  r 7 J v V L sampi 


-k  y k . } + m fl-j  j (1+k  )e  1, 
t L,  drop  i J ps  L r ps  rt  x J 


500 


where  i is  a constant  equal  to  one  if  a retro  stage  is  employed  and  equal  to  zero 
r 

otherwise.  For  the  launch  vehicle  dependent  formulation,  m^  is  a function  only 
of  the  launch  excess  speed  v and  possibly  the  geocentric  declination  6 and  launch 

OOQ 

parking  orbit  inclination  i.  ft  may  be  written  functionally  in  its  most  general  form, 

ff=7r(Va,„’  V*  » U„>  6.  C>  l)* 

®o  ®n  n 

Consequently,  using  the  notation  77^  = 9 77/dx,  one  obtains 

d 77=77  dv  + 77  dv  + it  dv  + n dg  + 77  dc  + 77-d6  + 77  di  . 
v “o  v ®n  V n g c o i 
® o “n  n 


To  write  the  partial  derivatives  indicated,  it  is  convenient  to  first  define  a factor  j , 
which  is  equal  to  zero  if  reference  power  is  fixed  and  equal  to  one  otherwise.  Then 
one  may  write  the  indicated  partial  derivatives  of  77  as  follows  for  the  launch  vehicle 
dependent  formulation: 


9m 


77 


= 77 


v m dv 

CD  o O 00  O 


2(m  V -i  m -j  m )(l+k  J(l-e  )v  r 
77  ' o n Jt  t Jps  psM  rt; ' x °°n  |\ 

v =j  ;; n — 9 L 

000  r (v  +2v  )2[2c  -c  (f  -e  ) ] 

' »n  c r l x x 


2c,  e f v 
1 x x c 


2 2 2 - 

(v  + v ) (v  + 2v  ) 

\V  n X C0«n>  n 1 


2 I 


con 


m 

77  = j 1 "P-5  (1  - j g ), 

g P g PS  x 


77  = } 

C p C 


m 

__£s 


(*'  ^1)(1->pSgx)  • 


The  definition  of  symbols  appearing  in  this  discussion  may  be  found  in  the  general 
Nomenclature  section  of  this  document.  Partials  9t7/3x  not  appearing  in  this  dis- 
cussion are  computed  in  other  subroutines,  and,  indeed,  the  relations  for  77  and 

C 

77  given  above  and  below  are  generally  not  explicitly  computed  but  are  incorporated 
x 

within  the  various  transversality  conditions. 
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For  the  launch  vehicle  independent  formulation,  the  partial  it  remains  un 

V®n 

changed  from  the  expression  given  above.  The  remaining  partials  become 


It  =0, 
V»o 


7 7 


s 


m 

o 

77 

g m 


m 

IT  =- 
c c 


2 

i ' V * m 


For  the  launch  vehicle  independent  formulation,  the  factor  j is  always  taken  to  be 

P 

zero,  since  a condition  of  the  formulation  is  that  reference  power  is  specified. 

The  transversality  conditions  are  as  follows.  When  mQ  is  independent  of 
6 and  i,  the  launch  excess  speed  is  optimized  via 


kff 


»o 


- (1-U 


gX  dm 

£_  2_ 


p X m o v 
o o 00  o 


1=0. 


This  corresponds  to  FXL(13)  governed  by  A13A.  When  m is  a function  of  launch 

o 

asymptote  declination  6 , 6 is  optimized  via 

f(dv/d6)-A  * [(V  xn  )xV  /v  cos6]  = 0, 

g 0 ®o  p ®0  “O 

where 


f = [k  + k - (1  + k.)  v - gX  /km  ]dm  /dv 
s t t n g o o c 


This  corresponds  to  FXL(10)  governed  by  A10A. 

For  optimized  excess  speed  at  an  intermediate  target,  the  primer  is  con- 
tinuous, i.  e. , 

a.+  - a;  = o. 

i t 
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This  corresponds  to  FXL{44),  FXL(45),  and  FXL(46)  governed  by  A44B,  A45B,  and 
A46B  (trigger  settings  of  2)  for  the  first  intermediate  target,  and  to  FXL(54)  etc, , 
and  FXL(64)  etc. , for  the  second  and  third  intermediate  targets,  respectively. 

For  optimized  arrival  excess  speed  (at  the  primary  target)  in  problems  where  a 
retro  stage  is  employed,  the  transversality  condition  is. 


n 

This  corresponds  to  FXL(14)  under  A14A. 

For  optimized  thrust  acceleration  with  unspecified  reference  power  in  the 
launch  vehicle  dependent  formulation,  the  transversality  condition  is, 

kTT 

-r6  +1=0- 

g 

This  corresponds  to  FXL(ll)  under  AHA  with  FIXPOW  set  off. 

For  optimized  jet  exhaust  speed- with  unspecified  reference  power  in  the  launch 
vehicle  dependent  formulation,  the  transversality  condition  is, 

kTT 

- -r2-  +1  = 0. 

A 

c 

This  corresponds  to  FXL(12)  governed  by  A12A  with  A11C  set  off. 

These  last  two  equations  also  apply  for  optimized  thrust  acceleration  and 
optimized  jet  exhaust  speed,  respectively,  in  the  launch  vehicle  independent  formu- 
lation with  fixed  reference  power.  The  appropriate  expressions  for  the  partials  of 
IT  are  used. 

If  the  reference  power  is  specified  using  the  launch  vehicle  dependent  formu- 
lation, but  both  reference  thrust  acceleration  and  jet  exhaust  speed  are  optimized, 
the  last  two  transversality  conditions  are  replaced  in  favor  of  the  one  condition, 
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i - * (i  - = 0. 

X c \ rj  / 
c 

This  corresponds  to  FXL(12)  using  A12A  with  A11C  set  on.  In  the  preceding  equa- 
tions X and  X are  evaluated  at  time  t , the  time  at  which  the  spacecraft  is  to 
g c n 

be  at  the  primary  target. 

When  using  the  open  angle  transfer  option,  the  transversal ity  condition 
associated  with  the  open  angle  is 

I A xR  -A  xR  1*  k = 0 , 

L n n n n - 

corresponding  to  FXL(2)  governed  by  A2B. 

For  either  the  ephemeris  or  open  angle  options,  if  the  final  velocity  is  com- 
pletely unspecified,  as  in  the  case  of  flyby  missions,  the  appropriate  vector  trans- 
versality  condition  is, 

A = 0, 

n 

corresponding  to  FXL(4),  FXL(5),  and  FXL(6)  governed  by  A 4B,  A5B,  and  A6B. 

The  transversal  ity  condition  associated  with  optimized  launch  date  for  the 
ephemeris  option  is, 

.. 

-A  * P + A • p + h =0, 
oo  o o vo 

corresponding  to  FXL(15)  under  A15A  with  A16C  set  off. 

The  condition  for  optimized  encounter  date  at  an  intermediate  target  is, 


corresponding  to  FXL(48),  FXL(5  8),  and  FXL(68)  using  A48A,  A58A,  and  A68A. 
The  appropriate  condition  for  optimized  arrival  date  (at  the  primary  target)  with  the 
ephemeris  option  is, 
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A • P - A • P - h =0, 
n n n n vn 


corresponding  to  FXL(16)  under  A16A. 

Since  the  variational  Hamiltonian  hv  is  a constant  of  the  motion  on  a given 

trajectory  segment,  the  time  at  which  it  is  evaluated  on  that  segment  is  arbitrary. 

The  preceding  conditions  pertaining  to  initial  and  final  time  are  applicable  if  the 

total  flight  time  is  unconstrained.  In  the  event  that  the  total  flight  time  is  specified 

while  both  t and  t are  optimized,  the  two  preceding  conditions  are  replaced  with 
o n 

the  single  condition  represented  by  the  sum  of  the  two,  i.e. , 


A 

n 


P - A 
n n 


P - h - A 
n vn  o 


P + A 
o o 


P + h = 0. 
o vo 


This  corresponds  to  FXL(15)  governed  by  A15A  with  A16C  set  on. 

For  either  the  open  angle  or  extra  ecliptic  options,  the  appropriate  transversa- 
lity  condition  associated  with  optimized  arrival  date  (i.e.,  optimized  flight  time)  is 

-h  = 0, 
v 


corresponding  to  FXL(16)  under  A16A. 

Finally,  the  transversality  condition  associated  with  unspecified,  but  constant, 
thrust  cone  angle  is, 

X.(t)  = 0, 

0 n 

corresponding  to  FXL(21)  under  APHI(1,1). 
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GETQ  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

0(70) 

U 

ITERAT 

Array  of  iterator  independent -variables, 
in  program  internal  units,  allocated  the 
same  as  the  program  input  iterator  in- 
dependent-variables Xi. 

Q(35) 

s 

ITER  2 

The  (active)  iterator  dependent- variables 
generated  by  subroutine  GET  Q. 

R(2) 

u 

REAL8 

Spacecraft  solar  distance  at  time  of 
primary-target  intercept  (R(2)),  in  AU. 

X(50) 

u 

REAL8 

Array  of  trajectory  dependent -variables, 
as  described  in  subroutine  RKSTEP. 

AK 

u 

REAL8 

Primer  vector  normalizing  factor  a^  , 
computed  in  subroutine  TRAJ. 

AM 

u 

REAL8 

Multiplicative  factor,  zero  or  one,  for  the 
term  • P^  in  the  transversality  condi- 

tions associated  with  flight  time;  computed 
in  subroutine  RETINJ. 

CE 

u 

REAL8 

Cosine  of  obliquity  of  ecliptic,  cos  €. 

FT 

u 

REAL8 

i 

| ■ 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

MM(70) 

u 

INTGR4 

Index  set  of  the  active  iterator  dependent- 

i variables . 

1 

P0(7) 

u 

REAL8 

• 

Array  of  initial  adjoint  variables  A , A , 
X . 00 

fo 

SE 

u 

REAL8 

Sine  of  obliquity  of  ecliptic,  sin  e. 

VH 

u 

REAL8 

Speed  at  periapse  of  approach  hyperbolic 
trajectory,  pertaining  to  the  retro- 
maneuver  at  the  primary  target,  in  meters/ 
second. 

VJ 

u 

REAL8 

Jet  exhaust  speed,  c,  in  EMOS. 

i 
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GETQ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XO  (7) 

U 

REAL8 

• 

Initial  launch  planet  state  P , P ; and 

o o 

initial  mass  ratio  v . 

0 

ABY  (70) 

U 

LOGIC4 

Master  array  of  iterator  dependent -vari- 
able indicators. 

A1A 

U 

LOGIC4 

A1B 

u 

LOGIC4 

A1C 

u 

LOGIC4 

A2A 

u 

LOGIC4 

Logical  indicators  which  are  defined 

and  initialized  in  subroutine  SETUP  and 

• 

. 

used  in  this  subroutine  for  the  selection- 

• 

for-computation  of  (active)  iterator  de- 

m 

. 

pendent-variable  values. 

A68A 

u 

LOGIC4 

A68B 

u 

LOGTC4 

A69A 

u 

LOGIC4 

A70B 

u 

LOGIC4 

DEG 

u 

REAL8 

Radians  to  degrees  conversion  factor. 

FMS 

u 

REAL8 

8m  /dv  , inkg/EMOS. 
o 00  o 

FXL(70) 

su 

IT  ERA  T 

Array  of  iterator  dependent  variables, 
allocated  the  same  as  program  input 
quantities  Yi. 

MXX 

u 

INTGR4 

The  number  of  active  iterator  dependent- 
variables  . 

PMN 

u 

REAL8 

Magnitude  of  primer  vector,  X (corres- 
ponding to  primary-target  intercept  time 
in  this  subroutine). 

PMO 

u 

REAL8 

Magnitude  of  initial  primer  vector,  XQ. 

TAU 

u 

! 

REAL8 

Propulsion  time,  T,  in  tau. 

TDV 

u 

REAL8 

Time  of  deep  space  burn,  in  days. 

AJPP 

u 

REAL8 

Jettison  indicator  j for  electric  pro- 
ps 

pulsion  system  prior  to  primary-target 
retro-maneuver.  . __ 
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GETQ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

APHI(2, 10) 

U 

LOGIC4 

Logical  indicators  associated  with 
multiple  fixed  thrust-cone-angles; 
only  APHI(i,l)  is  applicable  at  present. 

CONX(70) 

u 

IT  ERA  T 

Array  of  conversion  factors  (between 
program  external  and  internal  units)  for 
the  iterator  independent-variables, 
computed  in  subroutine  BEGIN. 

DECL 

u 

REAL8 

Departure  asymptote  declination,  6,  in 
radians. 

FETA 

u 

REAL8 

1/c  - T)'/V,  in  EMOS-1. 

FMSI 

u 

REAL8 

3v  /di,  in  EMOS/radian  /see  subroutine 
c 

OMASS). 

HA  MX  (4) 

u 

REAL8 

Variational  hamiltonian  values  at  the  be- 
ginning of  trajectory-segments  departing 
intermediate  targets. 

IOUT 

u 

INTGR4 

Out-of-ecliptic  mission  indicator. 

PIMO 

u 

REAL8 

7 T , computed  in  subroutine  TRAJ. 
! m 

PMOD 

u 

REAL8 

0 

Magnitude  of  initial  primer  derivative, 

IAJ.  | 

TMAX 

u 

REAL8 

Time  elapsed  from  launch  to  intercept 
of  primary  target,  in  tau. 

VINF 

u 

REAL8 

Hyperbolic  excess  speed  at  the  primary 

target,  v , in  meters/second. 

®n 

V00D(3) 

u 

REAL8 

Launch  hyperbolic  excess  velocity,  V^  , 
in  AU/tau  (=EMOS).  *° 

XINT 

(50,5) 

u 

REAL8 

Array  of  trajectory  dependent -variable 
values  corresponding  to  arrival  at  the 
intermediate  targets,  computed  in  sub- 
routine TRAJ,  and  allocated  the  same 
as  the  X array. 

I 


I 
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GETQ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ALTAU 

U 

REAL8 

Propulsion-time  adjoint  variable, 

CONAO 

U 

REAL8 

Acceleration  conversion  factor,  from 
AU/tauz  to  meters/sec  . 

CONSP 

u 

REAL8 

Speed  conversion  factor,  from  AU/tau  to 
meters/ second. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

DMDVC 

u 

REAL8 

dm  /dv  , in  kg/EMOS  (from  subroutine 
o c 

OMASS). 

DVI00 

u 

GUNCOM 

9 v /d  i , in  EMOS/radian  (from  subroutine 
g 

OMASS). 

FLYBY 

u 

LOGIC4 

Indicator  for  flyby  of  primary  target  (as 
opposed  to  arbiter,  rendezvous,  etc.). 

GPLAN 

u 

REAL8 

Gravitational  constant  of  primary  target, 

o 9 

in  mJ/sec  . 

GSUBX 

u 

REAL8 

Auxiliary  parameter  g , computed  in  sub- 
routine TRAJ.  X 

PSIGN 

u 

REAL8 

Coefficient  (±  1)  defining  the  sense  of  the 
launch  hyperbolic  excess  velocity  relative 
to  the  initial  primer  vector. 

SCALE 

u 

REAL8 

Arbitrary  positive  performance  index 
constant,  k. 

SEFMA  (7) 

u 

REAL8 

Array  containing  position  and  velocity  of 
launch  planet,  at  launch  time,  PQ  and  P^, 
in  AU  and  EMOS,  respectively. 

SEFMB(7) 

u 

REAL8 

Array  containing  position  and  velocity  of 

primary  target  at  time  of  target  intercept, 

P and  P , in  AU  and  EMOS,  respectively, 
n n 
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GETQ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SEFMC  (7) 

U 

REAL8 

Time  derivative  of  SEFMA  array  ( w.  r.t. 
tau"1). 

SEFMD(7) 

U 

REAL8 

Time  derivative  of  SEFMB  array  (w.  r.t. 
tau-1). 

TEMP2 

U 

REAL8 

Auxiliary  quantity,  computed  in  subroutine 
TRAJ. 

TEMP4 

u 

REAL8 

Auxiliary  quantity,  computed  in  subroutine 
TRAJ. 

WPRIM(3) 

u 

REAL8 

Initial  primer  vector,  AQ^r,  as  computed 
in  subroutine  TRAJ;  "weighted  primer". 

XMASS(7) 

u 

REAL8 

Array  of  masses  and  related  parameters, 
as  defined  in  subroutine  TRAJ. 

XTINT 

(6,5) 

u 

REAL8 

Positions  and  velocities  of  intermediate 
targets  at  times  of  intercept,  Pj  and  P., 
in  AU  and  EMOS,  respectively. 

ALT  ITU 

u 

REAL8 

Outdated  variable  (see  subroutine  VPRINT). 

ALWAYS 

u 

LOGIC4 

Indicator  for  fixed  (specified)  non-zero 
propulsion-time  adjoint-variable. 

DELTA V 

u 

REAL8 

Deep  space  burn  Av,  in  meters/second. 

FKPOW 

u 

LOGIC4 

Launch-vehicle-independent  trajectory 
option  indicator. 

FIXTHR 

u 

LOGIC4 

Indicator  for  fixed  (i.e. , constant)  thrust 
cone  angle. 

FPSNMH 

u 

REAL8 

Conversion  factor,  knots  to  fps. 

LEGMAX 

u 

INTGR4 

Total  (maximum)  number  of  trajectory- 
segments  comprising  the  trajectory. 

LIMPHI 

u 

INTGR4 

Highest  index-value  of  all  non-zero 
(multiple)  fixed  thrust-cone-angles; 
highest  permissible  value  is  currently 
one. 
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GETQ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

OUTECL 

U 

LOGIC4 

Indicator  for  out-of-ecliptic  mission. 

PAYLOD 

u 

REAL8 

Net  spacecraft  mass,  m j.,  in  kg. 

PLANET 

u 

LOGIC4 

Ephemeris-option  indicator. 

PRZERO 

u 

LOGIC4 

Indicator  that  zero  initial  primer  vector 
is  the  desired  condition. 

SWITCH  (2) 

u 

t 

REAL8 

Thrust  switch  function,  CTn  (evaluated  at 
endpoint  of  electric  propulsion  trajectory, 
in  this  subroutine). 

XTDINT 

(6,5) 

u 

REAL8 

Time  derivative  of  XTINT  array  (w.  r.t. 
tau-*). 
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Name: 


GET  RV 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


VI,  V2 

1NCOND,  VCR  OSS,  VSUB 
ITERAT,  LOGIC4,  REAL8 
None 
TRAJ 


Discussion:  This  routine  computes  the  desired  final  position  and  velocity  Rg  and 
V ("getRV")  pertaining  to  extra-ecliptic  missions.  Four  of  the  final  six  desired 
orbital  elements  are  essentially  specified  as  follows:  arrival  occurs  at  perihelion 
(flight  path  angle  y=0),  and  inclination  if,  speed  vf  and  radial  distance  rf  are 
specified.  The  ascending  node  angle  O and  argument  of  perihelion  W are  optimized 
via  the  transversality  conditions  as  follows-: 

Q = tan"1  [(C  • 3r)/(C  • 1)]  , 

00=  tan -1  [(-h  • A)rf/(h*  A)vfJ  , 


where  h — cos  i^k  + sin  i^  (k  x C)/  |k  x C | * 

and  where  the  primer  A and  its  derivative  A are  evaluated  at  the  final  time  and  i, 
j,  and  k are  the  coordinate  unit  vectors.  C is  the  vector  constant  of  the  motion 
(which,  without  loss  of  generality,  may  be  evaluated  at  the  initial  time): 

• i 

C = R xA  -R  xA  . 
o 0 o o 


Since 


R = , 

o o 


• • 


R =P  +V  . 
0 0® 


i e NOT 
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where  Pq  is  the  launch  planet’s  position  and  is  the  departure  excess  velocity, 
this  vector  constant  of  the  motion  is  actually  evaluated: 

* 

C = P x A -P  xA  -V  xA. 

O O o 0 00  o 

The  last  term  is  not  computed  when  the  magnitude  of  the  departure  asymptote  de- 
clination is  less  than  the  parking  orbit  inclination,  since  then  is  aligned  with 

A and  the  term  has  value  zero, 
o 

Finally,  subroutine  INCOND  generates  the  desired  final  position  and  velocity: 


ccoef2-scos£2 
cws  Q+  s co  c £2 
s co  s ij 


-s  to  c £2  - c to  s £2  c 
-scos£2+ccoc£2c 
c co  s ij 


where  s and  c denote  sine  and  cosine,  respectively. 


GET  RV  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

0(70) 

U 

ITERAT 

Array  of  iterator  independent  variables; 

here,  A and  A are  used, 

0 0 

X(50) 

u 

REAL8 

Array  of  trajectory  integrated  variables; 
here,  R and  R of  the  spacecraft,  at 
the  final  time,  are  used. 

AI 

A 

REAL8 

Desired  final  extra-ecliptic  inclination, 
ij,  in  radians. 
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GET  RV  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common  j 

Description 

AR 

UA 

REAL8 

Desired  final  spacecraft  solar  distance, 
r^,  in  AU. 

AV 

UA 

REAL8 

Desired  final  spacecraft  speed,  v^,  in 
EMOS. 

Cl 

U 

REAL8 

Cos  y 

SI 

U 

REAL8 

Sin  y 

VI  (3) 

SUAX 

Desired  final  spacecraft  position,  R , 
in  AU. 

V2(3) 

SUAX 

Desired  final  spacecraft  velocity,  V , 
in  EMOS. 

X0(7) 

u 

REAL8 

Launch  planet  position  and  velocity  at 
initial  time,  PQ  and  Pq  in  AU  and 

EMOS,  respectively. 

V00D(3) 

u 

REAL8 

Launch  hyperbolic  excess  velocity,  Vo, 
in  EMOS. 

\ 

Lt>ECL 

u 

LOGIC4 

Indicator  for  the  condition  in  which  the 
magnitude  of  the  departure  asymptote 
declination  exceeds  the  parking  orbit 
inclination. 
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i 


Name: 


GUESS 


Calling  Argument:  STATE,  MOPT 

Referenced  Sub-programs : IMPULS,  MINMX3,  SIMEQ,  SMQINT 

Referenced  Commons : ITERAT,  ITER2,  REAL8 

Entry  Points:  None 

Referencing  Sub -programs:  MAIN 


Discussion:  Subroutine  GUESS  performs  the  ballistic  trajectory  option  controlled 
by  program  input  quantity  MOPT,  providing  an  initial  guess  for  the  trajectory 
starting  parameters  A , A^,  and  v^^  (the  initial  primer,  its  derivative,  and 
the  launch  excess  speed). 

The  MINMX3  iterator  drives  the  3x3  two-point  boundary  value  problem  to 

a solution  using  IMPULS  as  the  subroutine  which  maps  the  iterator  independent 

variables  R onto  the  dependent  variables  R .by  generating  a ballistic  trajectory 
o n 

segment  of  specified  duration  At  and  requiring  Rn  “ pn  = 0;  the  BPacecraft  initial 

position  and  velocity  are  Rq  and  Rq,  the  launch  planet's  position  and  velocity  at 

time  of  launch  t , which  is  held  constant,  are  P and  P , and  the  target's  posi- 
o . ° u 

tion  and  velocity  at  time  t + At  are  P^  and  P^. 

As  is  the  case  for  all  HILTOP  trajectories,  Rq  = Pq.  The  required  start- 
ing conditions  A , A , and  v (and  vm  when  MOPT  = 2)  are  then  obtained  by 
° o o 00  o 

the  following  computations:  the  solar  distances  of  the  launch  and  target  bodies  at 
the  appropriate  times  (launch  and  intercept), 


o o ^RECEDING  PAGE  BLANK  NOT  FIUQa> 


i =^P  * P 
n n 


The  transfer  angle  9,  assuming  prograde  motion,  is  given  by: 
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If  (P  x P ) * 0, 
o n z 


1 , P • P V 

0 = COS  ( — — ) 

' PoPn  ' 


If  (P  x P ) <0, 

o n z 


, , P ' p \ 

0 = 277  - COS  ( — — ) 

' P P ' 


o n 


Then  define 


a. 


=f-At  r,v 

L 0 + 277m  J ’ 


2/3 


where  At  is  the  transfer  time,  in  tau,  and  m is  the  (integer)  number  of  whole 
revolutions  required  by  the  transfer.  Then  compute 


Ph=J(Po  + Pn)- 

and  if  a,  < p,  , set  a,  = p,  . 
h h h h 

Then  the  initial  guess,  to  be  fed  to  the  iterator,  for  the  departure  heliocentric 
velocity  of  the  spacecraft  is 


r— (P  x P ) x P 

V V n~  " 7~  — Sign  [(P  XP  ) ]. 

Po  \ |(P  xP)xP  I ° nz 

o n o 


Control  is  then  passed  to  the  MINMX3  iterator,  which  accomplishes  the  targeting 
of  the  ballistic  trajectory  segment. 


V ): 

00  o' 


The  initial  primer  vector  is  then  given  by  (a  unit  vector  in  the  direction  of 


R - P 

A = - 2.  £ 

° |R  - P | 
o o 
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Let  Q be  an  auxiliary  vector  associated  with  the  arrival  excess  velocity  as  follows: 


For  flyby  maneuvers:  Q - 0 . 

• • 

P - R 

~ n n 

For  orbiter  maneuvers:  Q - — “ 


Then  the  initial  primer  derivative  is  given  by 


*0 3 ( -r2-)  <£  Ac + ,F  • Ao>  V<°-  Ao> VQ)  • 

0 a r 

0 

where  f is  from  the  well-known  f-and-g  series,  and  F and  G are  transition 
vectors, all  output  by  subroutine  ANSTEP;  SR^/SR^  is  the  3x3  matrix  consisting 
of  the  partial  derivatives  of  the  iterator  dependent-variables  with  respect  to  the  in- 
dependent variables. 

Finally,  the  launch  excess  speed  is  computed  as 


v = R - P » 
®o  o o 


and,  for  primary-target  orbiter  maneuvers,  the  arrival  excess  speed  is  given  by 


v = P - R 
®n  n n 


GUESS  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(35) 

su 

ITER  2 

Array  of  (active)  iterator  independent- 
variables. 

F 

u 

REAL8 

f (from  f-and-g  series). 

X(50) 

u 

REAL8 

Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 
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GUESS  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BS(35) 

S 

ITER  2 

Array  of  maximum  step-sizes  for  the 
iterator  independent-variables. 

BW(35) 

S 

ITER  2 

Array  of  iterator  independent-variable 
weighting  factors. 

BX(5, 70) 

S 

ITERAT 

Array  of  iterator  independent-variable 
values  and  related  parameters,  input 
to  the  program  as  Xi. 

FX(6) 

U 

REAL8 

Transition  vector,  computed  in  sub- 
routine ANSTEP. 

GX(6) 

U 

REAL8 

Transition  vector,  computed  in  sub- 
routine ANSTEP. 

PM(1225) 

SA 

ITER2 

3x3  matrix  consisting  of  the  negative  of 

the  partial  derivatives  of  the  iterator 

dependent-variables  with  respect  to  the 

independent  variables,  -dR  /dR  , in 

no 

tau. 

P0(7) 

SUA 

REAL8 

Array  containing  initial  primer  vector 

and  its  time  derivative,  A and  A . 

o 0 

SX(50) 

su 

REAL8 

Array  of  trajectory  dependent -variables 
at  the  start  of  the  computation  step, 
corresponding  to  the  launch  time  in 
this  subroutine,  and  allocated  the  same 
as  X(i). 

X0(7) 

u 

REAL8 

Array  containing  the  launch  planet's 
position  and  velocity  at  launch  time,  P 
and  P0,  in  AU  and  EMOS,  respectively. 

BBB(35) 

s 

ITER2 

Array  of  iterator  independent-variable 
perturbation  step-sizes. 

CONX(70) 

u 

ITERAT 

Array  of  conversion  factors  (between 
program  internal  and  external  units) 
for  the  iterator  independent -variables. 
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GUESS  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

1 

Description 

MOPT 

UX 

Ballistic  trajectory  option  indicator 
(input  to  the  program). 

QMAX(35) 

S 

ITER2 

Array  of  upper  allowable  values  for  the 
iterator  dependent-variables. 

QMIN(35) 

S 

ITER  2 

Array  of  lower  allowable  values  for  the 
iterator  dependent-variables. 

REVS 

u 

REAL8 

Number  of  whole  revolutions  about  the 
sun,  m. 

TMAX 

u 

REAL8 

Transfer  time,  At,  in  tau. 

STATE  (6) 

ux 

Array  containing  the  position  and  velocity 
of  the  primary  target  at  time  of  inter- 
cept, P and  P , in  AU  and  EMOS,  res- 
pectively. 
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Name: 


GUNTHR 


Calling  Argument: 


None 


Referenced  Sub-programs:  None 

Referenced  Commons:  GUNCOM 

Entry  Points : None 

Referencing  Sub-programs:  GET  I,  OMASS 

Discussion:  This  routine  computes  the  minimum  incremental  velocity  required  to 
achieve  a given  hyperbolic  excess  speed  v^  along  an  asymptote  not  lying  in  the 
plane  of  a specified,  initial  circular  orbit.  The  minimum  Av  solution  was 
identified  by  Gunther  (see  the  Reference)  as  a particular  root  of  a quartic  equation 

in  the  sine  of  the  asymptote  out-of-plane  angle  I..  Also  computed  are  & Av/^ 

and  dAv/Si  . The  computations,  in  order  of  solution,  are  as  follows,  where 
00 

v is  the  speed  in  the  circular  orbit: 
o 

s = sin  (ij;  - 

2 2 

p = s (p  + 4 ) ; 
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The  partial  derivatives  are  given  by  the  following  expressions: 

w(3  + 2pw-w2)Op/dVoo)+(3p+2p2w  -3pw2-4w)(dw/dv  ) 
2,/  (l  + pw-wiJ)(2  + pw) 

dAv  = vQ2(3P+2p2w-3pw2-4w)  Sw 

^ [ I 9 ““  > . f 

00  2Av^  (1  +pw- w )(2  + pw)  Lco 

where 

Sp/Sv  = 1/v  , 

°o  o 


+ a|L)]7(2w~p72'y)}’ 

00 


5w 

Si 


x(3x/di  ) + 4s(5s/^i  ) 
00  00  ' 

2 y x2/4  + s2 


4- 


(f+y)  ff-]/(2w-p/2-y)}, 
00 


ds/d  i = cos  (i  ) , 

00  ' 00 

dy/dv^  = T(p/2)  dp/Sv^  - dx/dv^J^y, 


Sy/Si00=  - (9x/3ioo)/2y, 


dx 

du 


|[j3/2)pq/6u).(p/3)Vp/au>  + |a][./q/2)2  + (p/3); 


^/2) 


+ (p/3) 


-2/3 


1 

6 


(q/2)  q/o  u)  + (p/3)2(5p/du)  Sq 


7(q/2)2  + (p/3)3 


uI/^» 


2 + (p/3)3 


» 


with  u = v or  i' 

00  CD  9 
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dq/dvoj=  2ps2(l-s2)(Bp/Svoo), 

Sq/9iec=  2p2s(l-2s2)(3s/3i00), 
2 

Sp/Svoo=2ps  (Sp/dv^), 
3p/5ico=  2s(p2+  4)(Bs/Bico). 


Reference: 

P.  Gunther,  "Asymptotically  Optimum  Two-Impulse  Transfer  from  Lunar  Orbit,  " 
AIAA  Journal,  Vol.  4,  No.  2,  pp.  346-349,  February  1966. 


GUNTHR  EXTERNAL  VARIABLES  TABLE 


Common 

Description 

DV 

SU 

GUNCOM 

Minimum  incremental  speed,  Av. 

VO 

U 

GUNCOM 

Speed  in  circular  orbit,  v . 

— 

100 

SU 

GUNCOM 

asymptote  out-of-plane  angle,  i^, 
in  radians. 

VOO 

U 

GUNCOM 

Hyperbolic  excess  speed,  v . 

DVI00 

S 

GUNCOM 

3 Av/3i  . 

GO 

DW00 

s 

GUNCOM 

5 Av/Sv  . 
00 

VODIV 

U 

GUNCOM 

Inverse  of  v , l/v  . 

o 0 

LDVI00 

u 

GUNCOM 

Indicator  to  bypass  computations  of 

3 Av/Si  . 

00 

LDVVOO 

u 

GUNCOM 

Indicator  to  bypass  computations  of 

3Av/3v  . 

00 

Units  of  speed  and  speed-related  parameters:  any  units  are  admissible,  and  output 
units  are  consistent  with  input  units.  Derivatives  with  respect  to  iw  are  in  speed- 
units/radian. 
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Name: 


IMPRNT 


Calling  Argument:  Ml,  M2,  AAA 

Referenced  Sub-programs:  None 

Referenced  Commons:  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  GUESS,  MINMX3 

Discussion:  Subroutine  name  IMPRNT  is  passed  to  the  MINMX3  iterator  in  sub- 
routine GUESS,  and  in  subroutine  MINMX3  the  subroutine  name  becomes  CCHECK 
instead  of  IMPRNT.  Subroutine  IMPRNT  outputs  the  MINMX3  iteration  history  to 

the  high  speed  printer. 

Messages  and  printouts:  The  first  printed  line  consists  of  three  subroutine 
MINMX3  parameters;  the  number  of  trajectories  in  the  current  iteration  sequence 
computed  without  also  computing  a partial  derivative  matrix,  the  number  of  tra- 
jectories computed  having  an  associated  partial  derivative  matrix,  which  was  com- 
puted by  generating  a set  of  neighboring  trajectories,  and  the  iterator's  inhibitor, 
as  follows: 


This  is  followed  by  two  lines  consisting  of  seven  quantities  per  line;  the  space- 
craft position  R in  AU,  velocity  R in  AU/tau,  and  mass  ratio.  The  first  line 
corresponds  to  the  initial  time  and  the  second  line  to  the  final  time. 
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IMPRNT  EXTERNAL  VARIABLES  TABLE 


Variable 

— 

Use 

Common 

Description 

X(50) 

U 

REAL8 

Array  of  trajectory  dependent 
variables  corresponding  to  the  current 
time  along  the  trajectory. 

Ml 

UX 

The  number  of  trajectories  in  the 
current  iteration  sequence  computed 
without  also  computing  a partial 
derivative  matrix. 

M2 

UX 

The  number  of  trajectories  in  the 
current  iteration  sequence  computed 
having  an  associated  partial  derivative 
matrix. 

SX(50) 

U 

REAL8 

Array  of  trajectory  dependent  vari- 
ables corresponding  to  the  beginning 
of  the  current  computation  step. 

AAA 

UX 

The' iterator’s  inhibitor,  X. 
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Name: 


IMPULS 


Calling  Argument:  ERROR 

Referenced  Sub-programs:  ANSTEP,  SCOMP 

Referenced  Commons:  ITER2,  REAL8 

Entry  Points : None 

Referencing  Subprograms : GUESS,  MINMX3 

Discussion:  Subroutine  name  IMPULS  is  passed  to  the  MINMX3  iterator  in  sub- 
routine GUESS,  and  in  subroutine  MINMX3  the  subroutine  name  becomes  PD5 
instead  of  IMPULS.  The  name  IMPULS  is  short  for  "impulse"  and  refers  to  the 
type  of  trajectory  which  the  subroutine  generates:  impulsive,  or  all-ballistic. 

The  ballistic  trajectory  runs  from  the  launch  planet  to  the  primary  target  (once 
convergence  is  achieved). 

The  two-point  boundary  value  problem  solved  by  the  iterator  is  3x3,  where 
the  independent  variables  consist  of  the  spacecraft's  heliocentric  velocity  at  the 
launch  planet  (the  launch  time  is  specified),  and  the  dependent  variables  consist 
of  the  spacecraft’s  position  vector  after  a specified  time  interval  has  elapsed, 
this  position  being  required  to  eventually  match  the  target's  position. 

At  entry  into  the  routine,  the  error  indicator  is  set  "off",  the  spacecraft 
heliocentric  velocity  at  the  launch  planet  is  set  equal  to  the  iterator  independent 
variables,  and  the  following  initializations  take  place  in  preparation  for  generating 
the  ballistic  trajectory  via  the  f and  g series  (g  is  not  the  symbol  for  reference 
thrust  acceleration  in  this  discussion) : 


d = R ’ R , 
o o o 


r~2 2 7 

■ = ./  x + y + z , 
o V o o o 


a - v - 2u/r  , 
o o 
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where 


2 -2  -2  • 2 
v = x + y + z , 

0 O o 0 

and  a is  input  to  subroutine  SCOMP.  The  time  elapsed  along  the  trajectory  is 
then 


At  = g + 


3L=o_(rG  +%G)+fl, 

Vm  Vm  0 Jfj,  ^ a/m 


but  since  the  gravitational  parameter  of  the  sun,  n,  is  unity  in  the  program's 
internal  system  of  units,  At  is  computed 


At  = r G + d G + G , 
o 1 o 2 3 


and  a is  computed 


Oi  = v - 2/r  . 
o o 


A more  thorough  exposition  of  the  f and  g series  is  given  in  the  discussion  of 
subroutine  ANSTEP. 

The  trajectory  independent-variable  /3  is  stepped  in  increments  AjS  of 

one-half  until  At  > t , where  t is  the  trajectory  stopping-condition  time. 

nidA  max 

Once  this  occurs,  an  iteration  having  as  the  independent  variable  is  executed 
until  At  = tmax  to  within  a specified  tolerance.  The  iteration  consists  of  Newton's 
method,  having  the  dependent-variable 


F = At  - t - 0, 
max 


and  derivative 


d F _ _SF_  a At 
a?  3At  5^  (l} 

where  the  solar  distance  r is  given  by 


v 0 1 


r = r G + d G +G. 
o o o 1 2 
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Once  the  iteration  for  the  final  time  converges,  the  iterator  dependent- 
variables  are  set  equal  to  the  resulting  spacecraft  position. 

Messages  and  printouts:  When  the  iteration  for  the  trajectory-endpoint  time  fails 
to  converge  within  one  hundred  steps,  the  error  indicator  is  set  on  , the  message 
is  printed  on  units  6 and  12, 

MAX  ITERATIONS  IN  *IMPULS* 

and  the  subroutine  is  exited. 


IMPULS  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(35) 

U 

ITER  2 

Array  of  iterator  independent-variables. 

Q (35) 

S 

ITER2 

Array  of  iterator  dependent-variables. 

X(50) 

SU 

REAL8 

Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 

SX(50) 

su 

REAL8 

! 

Array  of  trajectory  dependent-variables 
at  the  start  of  the  computation  step, 
corresponding  to  the  launch  time  in  this 
subroutine. 

TMAX 

u 

REAL8 

The  trajectory-endpoint  time,  tmax* 
tau. 

ERROR 

sx 

Error  indicator. 
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Name: 


INCOND 


Calling  Argument: 
Referenced  Sub-programs : 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


ENP,  SOMP,  OMP,  EYEP,  GAMP,  VP,  SRP,  R,  RDH 

VCR  OSS,  VSCAL 

None 

None 

GETRV 


Discussion:  INCOND  calculates  Cartesian  position  and  velocity  vectors  given 
selected  classical  elements,  a reference  pole  vector  and  the  instantaneous 
radius  and  speed. 

The  reference  coordinate  system  is  defined  as  follows: 


e . = unit  (kxe  ) 
n 


where  e is  the  input  reference  pole  direction 
n 

A A A 

e = e x e , 
m n •c 


The  Cartesian  vectors  are  given  by 


R = r [(cos  cocos  £2-  sin  cosin  £2cos  i)  e^ 

+ (cos  oosin  £2  + sin  cocos  £2  cos  i)  e^ 

+ (sin  cosin  i)  e ] 
v n 

V = v [(-sin  (co-  y)  cos  £2-  cos  (oo-  y)  sin  £2cos  i)  e^ 

+ (-sin  (oo-  y)  sin  £1+  cos  (co-  y)  cos  £2cos  i) 

+ (cos  (co-  y)  sin  i)  e^  ] 

where  co  is  the  argument  of  position,  £1  is  the  longitude  of  the  ascending  node, 
i is  the  inclination,  y is  the  flight  path  angle,  r is  the  magnitude  of  position  and 
v is  the  speed. 
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ENCONP  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

ENP(3) 

UX 

! 

Unit  pole  vector,  e . 

n 

SOMP 

ux 

Argument  of  position,  to. 

OMP 

UX 

Longitude  of  ascending  node,  ft. 

EYEP 

ux 

Inclination,  i. 

GAMP 

ux 

Flight  path  angle,  y . 

VP 

ux 

Speed,  v. 

SRP 

ux 

Radius,  r. 

R(3) 

sux 

Position  vector,  R . 

RDH  (3) 

sux 

Velocity  vector,  V. 

Angles  are  input  in  radians;  output  R and  V will  be  same  units  as  input  r 
and  v. 
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Name: 


INPUT 


Calling  Argument:  GULP 

Referenced  Sub-programs:  TIKTOK 

Referenced  Commons:  INTGR4,  ITERAT,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  MAIN 

Discussion:  The  read-in  of  program  inputs  via  NAMELIST  MINPUT  is  performed 
by  this  routine,  and  their  values  are  printed  at  the  beginning  of  each  case.  When 
all  cases  have  been  executed,  the  routine  terminates  the  run  by  calling  TKTOK(3). 

Messages  and  printouts-.  At  the  beginning  of  each  case,  all  program  inputs  are 
printed  following  the  heading 

PROGRAM  INPUTS 

The  iterator  independent  and  dependent  variable  arrays  are  printed  first,  in  the 
format: 

X 1 = , . ■ • * 

X 2 = , . > > ’ 

X 3 = , » > ’ > 


X70  = ;, , . . * 

Y 1 = , , - 

Y 2 = , , , 

Y 3 = , . , , 

. PRECEDING  PAGE  BLANK  NOT  FIIAIED 

Y70  = , , 
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In  the  X-arrays  above,  which  constitute  the  independent  variable  arrays,  the 
first  quantity  is  the  value,  the  second  quantity  is  the  trigger,  the  third  quantity 
is  the  maximum  allowed  step  size  per  iteration,  the  fourth  quantity  is  the  pertur- 
bation increment  used  for  computing  neighboring  trajectories,  and  the  fifth  quantity 
is  the  weight.  In  the  Y-arrays,  which  constitute  the  dependent  variable  arrays,  the 
first  quantity  is  the  desired  value,  the  second  quantity  is  the  trigger,  and  the  third 
quantity  is  the  convergence  tolerance  (full  neighborhood  width  centered  about  the 
desired  value).  The  remainder  of  the  case  inputs  are  then  printed  in  NAMELIST 
format  following 

& OUTPUT 

These  parameters  are  printed  in  alphanumeric  order,  except  that  floating  point 
quantities  precede  integer  quantities. 


INPUT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

AE 

SU 

REAL8 

Desired  final  extra-ecliptic  eccentricity. 

AN 

SU 

REAL8 

Trajectory-integration  exponent  in 
regularization  formula. 

AR 

SU 

REAL8 

Desired  final  extra-ecliptic  perihelion 
distance,  in  AU. 

BI 

SU 

REAL8 

Efficiency  coefficient  b in  equation  for 
efficiency. 

BX(5,  70) 

SUE 

ITERAT 

Iterator  independent  variable  array. 

BY (3,  70) 

SUE 

ITERAT 

Iterator  dependent  variable  array. 

Bl 

SU 

REAL8 

Launch  vehicle  coefficient  b^,  in  kg. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

B2 

SU 

REAL8 

Launch  vehicle  coefficient  b2,  in 
meters/ second. 

B3 

SU 

REAL8 

Launch  vehicle  coefficient  bg,  in  kg. 

DI 

SU 

REAL8 

Efficiency  coefficient  d in  equation 
for  efficiency,  in  km/sec. 

El 

SU 

REAL8 

Efficiency  coefficient  e in  equation  for 
efficiency. 

JT 

SU 

INTGR4 

Jettison  indicator  jt  for  electric  pro- 
pulsion tankage  prior  to  primary- 
target  retro-maneuver. 

T2  (10) 

SU 

REAL8 

Initial  estimates  of  swingby-continua- 
tion  trajectory-segment  flight  times, 
in  days. 

XO  (7) 

SU 

REAL8 

Spacecraft  initial  state  vector,  xQ,  xD, 
Mq,  where  xQ  is  inAU,  x0  is  in 
EMOS,  and  M0  = l. 

AAI 

SU 

REAL8 

Desired  final  extra -ecliptic  inclination, 
in  degrees. 

CNI 

SU 

REAL8 

Inclination  to  ecliptic  of  primary-target 
orbit,  in  degrees. 

ECI 

SU 

REAL8 

Eccentricity  of  primary-target  orbit. 

GAP 

SU 

REAL8 

Propulsion-corner  proximity  tolerance- 
interval. 

IRK 

SU 

INTGR4 

Numerical  integration  option  indicator 
(currently  not  used). 

IRL 

SU 

INTGR4 

Primer-origin-proximity  step-size- 
control  indicator. 

579 


INPUT-3 


INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


| Variable 

Use 

Common 

Description 

ITF 

SU 

INTGR4 

Estimated  time  remaining  to  halt 
computer  run  with  full  printout,  in  case 
of  proximity  to  maximum  machine  time, 
in  seconds. 

JPP 

su 

INTGR4 

Jettison  indicator  jpg  for  electric  pro- 
pulsion system  prior  to  primary-target 

retro-maneuver. 

OMI 

SU 

REAL8 

Ascending  node  angle  (with  respect  to 
vernal  equinox)  of  primary-target  orbit, 
in  degrees. 

RAP 

su 

REAL8 

Apoapse  distance  of  capture  orbit  about 
primary  target,  in  planet  radii. 

SAI 

su 

REAL8 

Semi-major  axis  of  primary-target 
orbit,  in  AU. 

SOI 

su 

REAL8 

Argument  of  perihelion  of  primary- 

target  orbit,  in  degrees. 

- 

TDV 

su 

REAL8 

Time  of  deep  space  burn,  in  days. 

j 

TGO 

su 

. REAL8 

Ballistic  trajectory-extension  print 
option  indicator. 

TPI 

su 

REAL8 

! 

Time  from  reference  date  (which  is 
specified  by  MYEAR,  etc.)  to  perihelion 
passage,  for  the  primary  target,  in  days. 

ASOL(5) 

su 

REAL8 

Solar  power  law  coefficients  a^  in  the 
expression  for  the  solar  power  law. 

CNIX(5) 

su 

REAL8 

Inclinations  to  ecliptic  of  intermediate- 
target  orbits,  in  degrees. 

— 

CSTR 

su 

REAL8 

Electric  propulsion  system  structural 

- 

factor,  k . 

s 

DPOW 

su 

REAL8 

Ratio  of  housekeeping  power  to  reference 
power,  ph/pre{. 

- 

ECIX(5) 

su 

REAL8 

Eccentricities  of  intermediate  target  orbits. 

i 
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. -INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

GULP 

UX 

Indicator  for  reading  inputs  or  writing 
inputs. 

HOUR 

SU 

REAL8 

Hour-of-day  of  reference  date. 

IBAL 

su 

INTGR4 

Ballistic  trajectory  option  indicator. 

IOUT 

SU 

INTGR4 

Extra-ecliptic  mission  indicator. 

EOT 

su 

INTGR4 

Initial  primer  vector  rotation  indicator. 

MDAY 

su 

INTGR4 

Day-of-month  of  reference  date. 

MODE 

su 

INTGR4 

Power  variation  option  selector. 

MOPT 

su 

j 

INTGR4 

Ballistic  trajectory  option  indicator. 

MPOW 

su 

INTGR4 

Maximum  or  optimum  power  indicator 
during  solar  panel  degradation  option. 

NSET  (5) 

su 

INTGR4 

Iteration-sequence  control  array. 

OMIX  (5 ) 

su 

REAL8 

Ascending  node  angles  of  intermediate- 
target  orbits,  in  degrees. 

REVS 

su 

REAL8 

Indicator  for  number  of  revolutions  of 
trajectory  in  ballistic  trajectory  option. 

RPER 

su 

REAL8 

Periapse  distance  of  capture  orbit 
about  primary  target,  in  planet  radii. 

SAIX(5) 

su 

REAL8 

Semi-major  axes  of  intermediate- 
target  orbits,  inAU. 

SOIX(5) 

su 

REAL8 

Arguments  of  perihelion  of  inter- 
mediate-target orbits,  in  degrees. 

TOFF  (20) 

su 

REAL8 

Array  of  times,  from  the  start  of  the 
trajectory,  at  which  imposed  coast 
phases  are  to  begin,  in  days. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TPIX(5) 

SU 

REAL8 

Times  from  reference  date  to  peri- 
helion passages,  for  the  intermediate 
targets,  in  days. 

CTANK 

SU 

REAL8 

Electric  propulsion  system  propellant 
tankage  factor,  k^. 

CTRET 

SU 

REAL8 

Retro  tankage  factor,  k^  , for  retro 
maneuver  at  the  primary  target. 

INTPR 

SU 

INTGR4 

Indicator  which  specifies  print-length 
when  the  iteration  in  subroutine 
INTERP  fails. 

ISPIN 

SU 

INTGR4 

Spinner  indicator.  Not.  used  at  present. 

KPART 

SU 

INTGR4 

Option  indicator  for  automatically 
selecting  improved  independent  para- 
meter perturbations  for  generating 
the. iterator's  partial  derivative  matrix. 

LOADX 

SU 

INTGR4 

Indicator  for  invoking  the  intermediate- 
target  initial-guess  feature. 

MONTH 

SU 

INTGR4 

Month-of-year  of  reference  date. 

MOPTX(5) 

SU 

INTGR4 

The  target-numbers  of  the  successive 
intermediate  targets. 

MOPT2 

SU 

INTGR4 

Launch  planet  number  and  ephemeris- 
option  indicator. 

MOPT3 

SU 

INTGR4 

Planet-number  of  primary  target. 

MOPT4(10) 

SU 

INTGR4 

Planet-numbers  of  post-swingby  targets. 

MREAD 

SU 

INTGR4 

1 

Option  indicator  for  card  input  of 
iterator  independent  variables. 

MYEAR 

SU 

INTGR4 

Year  of  reference  date. 

i 
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. INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use  ; 

Common 

Description 

NDIST 

SU 

INTGR4 

Identification  number  of  celestial  body 
to  be  used  as  the  reference  for  the 
communication  distance  and  angle 
measurement  printed  in  the  Extremum 
Point  Summary  Table. 

NHUNG 

SU 

INTGR4 

Maximum  number  of  propulsion-corner- 
proximity  occurrences  allowed  in  a 
given  iteration-sequence. 

NPERF 

SU 

INTGR4 

Identification  number  of  the  end  condi- 
tion that  is  to  be  used  as  the  performance 
index  when  using  the  direct  parameter 
optimization  feature. 

NTAPE 

SU 

INTGR4 

Specifies  the  unit-number  for  the  tra- 
jectory tape. 

PSIGN 

SU 

REAL8 

Coefficient  defining  the  sense  of  the 
launch  hyperbolic  excess  velocity  rela- 
tive to  the  initial  primer  vector. 

STATE  (6) 

SU 

REAL8 

Array  containing  the  Cartesian  position 
and  velocity  components  of  the  primary 
target,  in  AU  and  EMOS. 

STEP1 

SU 

REAL8 

Thrust-phase  computation  step-size, 

Au. 

STEP2 

SU 

REAL8 

Coast-phase  computation  step-size, 

Aj8. 

THRET 

SU 

REAL8 

Retro-stage  thrust  in  retro  maneuver 
at  the  primary  target,  in  pounds. 

XANG1 

SU 

REAL8 

Latitude  of  the  launch  site,  in  degrees. 

XANG2 

SU 

REAL8 

Maximum  parking  orbit  inclination  per- 
mitted by  range  safety  considerations, 
in  degrees. 
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INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ALPHAA 

SU 

REAL8 

Specific  mass  of  solar  arrays,  a , in 
kg/kw.  ** 

ALPHAT 

su 

REAL8 

Specific  mass  of  thruster  subsystem, 
in  kg/kw. 

ALTITU 

SU 

REAL8 

Not  used  at  present. 

DMRETR 

su 

REAL8 

Retro  engine  mass,  in  kilograms. 

EMUODD 

su 

REAL8 

Gravitational  constant  of  the  primary 
target,  in  m3/sec2. 

EMUODX(5) 

su 

REALS 

Gravitational  constants  of  intermediate 
targets,  in  m3/sec^  (not  used  at  present), 

GAMMAX 

su 

REAL8 

Maximum  permissible  value  of  the 
power  function  y. 

ITPRNT 

su 

INTGR4 

Indicator  for  special  printout  from  the 
iterator. 

J PRINT 

su 

INTGR4 

Unit  11  printout-length  indicator. 

LAUNCH 

su 

INTGR4 

Launch  mode  selector. 

MAXHAM 

su 

INTGR4 

Maximum  number  of  times  program 
will  check  Hamiltonian  constancy. 

MBOOST 

su 

INTGR4 

Launch  vehicle  selector. 

MPRINT 

1 

i 

su 

INTGR4 

Indicator  for  printing  the  summary- 
trajectory  (final  case  trajectory)  as 
a function  of  time. 

MPUNCH 

su 

INTGR4 

Punched-card  and  trajectory-tape 
generation  control  indicator. 

MS  WING  (10) 

su 

INTGR4 

Swingby  maneuver  type  selectors. 

MTMASS 

su 

INTGR4 

1 

! 

Mission-type  selector  pertaining  to 
the  primary  target. 

584 


INPUT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

MUPDAT 

SU 

INTGR4 

Indicator  for  whether  iterator  inde- 
pendent variables  at  the  finish  of  the 
iteration  sequence  of  a given  case  are 
to  be  used  as  initial  guesses  for  the 
next  case. 

NORMAL 

SU 

INTGR4 

Automatic  adjoint-variable  normalization 
indicator. 

NPRINT 

SU 

INTGR4 

Printout  amount  selection  indicator. 

NSWING 

SU 

INTGR4 

Ballistic  swingby  continuation  analysis 
option  flag. 

NSWPAR 

SU 

INTGR4 

Iterator  independent-variable  perturba- 
tion increment  control  indicator. 

POWFIX 

SU 

REAL8 

Launch-vehicle-independent  (i.e.,  no 
launch  vehicle)  trajectory  option  indicator, 
in  which  the  value  of  POWFIX  is  the  space- 
craft's reference  power  in  kilowatts. 

RADODD 

SU 

REAL8 

Radius  of  primary  target,  in  meters. 

RADODX(5) 

SU 

REAL8 

Radii  of  intermediate  targets,  in 
meters  (not  used  at  present). 

SPIRET 

SU 

REAL8 

i 

Retro-stage  specific  impulse  pertaining 
to  the  retro-maneuver  at  the  primary 
target,  in  seconds. 

TCOAST(20) 

SU 

REAL8 

Array  of  times  representing  the  duration 
of  the  coast-phase  start  times  in  TOFF, 
in  days. 

TPOWER 

SU 

REAL8 

Solar-cell  degradation  characteristic- 
time, T,,  in  days, 
a 

TSCALE 

SU 

REAL8 

Iterator  dependent-variable  tolerance- 
interval  scaling  factor. 

XSWING(3, 10 

SU 

d 

REAL8 

Array  of  velocity  vectors  consisting  of 
initial  velocity  guesses  of.  a given  post- 
swingbv  trajectory  segment,  in  EMOS. 
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Name: 


INTERP 


Calling  Argument:  I 

Referenced  Sub-programs:  CDERIV,  SPRINT,  STEP 

Referenced  Commons:  EXTREM,  INTGR4,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  CHECK 

Discussion:  Once  subroutine  CHECK  determines  that  a root  of  a monitored  function 
f(/J)  lies  within  the  current  computation  step  A/?,  subroutine  INTERP  performs  the 
task  of  isolating  the  root  of  that  function  (i.e. , of  determining  the  value  of  the  tra- 
jectory independent-variable  such  that  f(^x)  = 0). 

The  root  isolation  is  performed  by  approximating  the  given  function  f(0)  by 
a quadratic  polynomial: 

f(/S)  s:  c02+b0+  a, 

and  by  solving  analytically  for  a good  estimate  of  the  root,  f(/?x)  = °»  using  the 
solution  to  the  quadratic, 

-b  ± Jb2  - 4ac 
^x  2 c 

in  which  the  sign  ambiguity  is  resolved  by  rejecting  the  root  lying  outside  of  the 
computation  step  A/3,  i.e.,  outside  of  /3q  * £ * The  following  sketch  may 

be  helpful  in  visualizing  the  several  points  along  the  function,  which  will  be  em- 
ployed in  the  discussion  below: 
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Three  points  (ordered  pairs  (£,  f (£)).)  are  chosen  from  the  actual  function  f(0) 
in  order  to  generate  the  quadratic  approximation  of  f(j8): 

(0  , f ),  (/S.,  f.),  (0  , f ). 

e e j j u u 

These  points  are  each  required  to  satisfy  the  quadratic  formula,  with  the  object  of 
determining  the  unknown  values  of  the  coefficients  a,  b,  and  c: 

a) 
(2) 
(3) 

The  point  /9.  is  not  depicted  in  the  sketch  because  it  may  vary  with  each  iterative 
cycle  toward  determining  the  root  of  the  actual  function  f(/3).  The  point  j3.  is 
chosen  in  such  a manner  as  to  narrow  down  the  root  as  quickly  as  possible;  /8. 


f =c/32+b£  + a , 
e e e 

o 

f.  = c£.  + b 8 + a, 

1 j 

f = c £ +b/?  + a . 

u u 'u 
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becomes  8 and  8 becomes  8 , . or  fi.  becomes  8 and  8 becomes  8 . 

u u 1 j e e o 

with  the  f's  being  substituted  in  like  manner. 

Equations  (1),  (2),  and  (3)  consist  of  three  equations  in  three  unknowns  a, 
b,  and  c,  which  are  solved  as  follows: 


From  (1), 


a = f -8  (b  + c 8 ) • 
e e e 


(4) 


Substituting  (4)  into  (3)  leads  to 


b 8-8  "C(^u  + ^e)* 
u e 


Substituting  (4)  and  (5)  into  (2)  leads  to 


c = - 


(5) 


(6) 


Therefore  c is  first  computed  from  (6),  then  b is  computed  from  (5),  and 
finally  a is  computed  using  (4).  The  root  8 of  the  quadratic  approximating- 
function  is  near  to,  but  not  exactly  equal  to,  that  of  the  actual  function.  Successive 
.cycles,  or  iterations,  through  the  quadratic -approximation  formulas  above,  each 
time  using  an  improved  value  of  8 ^ > rapidly  leads  to  the  actual  root  to  within  a 
specified  tolerance. 

Messages  and  printouts:  If  the  function  root  is  not  isolated  to  the  specified  tolerance 
within  fifty  iterations,  the  error  message  is  written  on  unit  6: 


ITERATION  FOR  FUNCTION  ROOT  DID  NOT  CONVERGE. 

FUNCTION!  (i)  ) = (name)  TIME  = (t)  COAST  = (e)  _ 

where  i is  the  index  of  the  monitored  function,  B(2,  t),  "name"  is  the  name  of 
the  function,  t is  the  time  elapsed  since  the  beginning  of  the  trajectory,  in  days, 
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and  e is  a logical  indicator  T,  for  true,  or  F,  for  false,  for  coasting  flight 
(the  converse  being  thrusting  flight).  This  is  followed  by  a heading: 

SPECIAL  BLOCK  PRINT  AT  FAIL  POINT 
followed  by  a block  of  trajectory  information  output  via  subroutine  SPRINT. 

If  long-print  is  invoked  via  the  program  input  indicator  INTPR,  the  entire 
failed  iteration  is  repeated  and  special  printout  is  executed  at  each  iteration  follow- 
ing the  block-heading, 


KOUNT 

TS 

CSS 

Z 

AYE 

BEE 

CEE 

DET 

YL 

YU 

YJ 

Y(l) 

Y(2) 

YJU 

YUL 

YU 

FL 

FU 

FJ 

B(l,  I) 

B(2, 1) 

TIME 

YSEQO 

DELTA 

<i) 


(2) 


The  names  in  the  block-heading  are  defined  as  follows : 


KOUNT 

Iteration  counter. 

TS 

Time  at  /3q,  t(PQ),  in  tau. 

CSS 

Current  value  of  computation  step,  A/J. 

Z 

Identical  to  CSS. 

AYE 

Quadratic  coefficient  a. 

BEE  ? 

Quadratic  coefficient  b. 

CEE 

Quadratic  coefficient  c. 

DET 

-'VVVW-'V- 
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YL 

0 . 

e 

YU 

0 . 
u 

YJ 

0.. 

) 

Y(l) 

» o ■ 

Y (2) 

V 

YJU 

YUL 

$ -e 

u e 

YU 

0 -P.. 
e J 

FL 

f . 

e 

FU 

f . 
u 

FJ 

f.. 

J 

B(l,  I) 

Value  c 

B(2, 1) 

Value  c 

TIME 

Time  e 

YSEQO 

Sx- 

DELTA 

Time  elapsed  since  start  of  trajectory,  in  days. 
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INTERP  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

| Common 

Description 

B(2,  30) 

SU 

EXTREM 

Array  of  monitored  functions. 

I 

ux 

Function  selector. 

X(50) 

u 

REAL8 

Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 

SX(50) 

u 

REAL8 

Array  of  trajectory  dependent-variables 
corresponding  to  the  beginning  of  the 
current  computation  step,  allocated  the 
same  as  X(i). 

QJEX 

u 

LOGIC4 

Detailed  printout  indicator,  associated 
with  the  final,  summary-trajectory  of  a 
given  case. 

COAST 

u 

LOGIC4 

Indicator  for  coasting  flight  or  thrust- 
ing flight. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

DBETA 

SU 

REAL8 

Computation  step  size,  A£  (increment 
of  trajectory  independent-variable). 

INTPR 

u 

INTGR4 

Long-print  indicator  input  to  the  program 
("Interp  print"). 

SB  ETA 

u 

REAL8 

Value  of  trajectory  independent-variable 

corresponding  to  the  beginning  of  the 

current  computation  step,  )3  . 

o 

MPUNCH 

SU 

INTGR4 

Indicator  for  punched  cards  and  tra- 
jectory tape  generation,  input  to  the 
program. 

SKOUNT 

SU 

REAL8 

The  number  of  steps,  or  iterations,  re- 
quired to  isolate  the  remarkable  point  to 
the  specified  tolerance. 
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Name;  L0ADraECEDmG  PAGE  BLANK  NOT  KUM 

Calling  Argument:  J,  IC 

Referenced  Sub-programs:  TRAVEL 

Referenced  Commons:  EXTREM,  INTGR4,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  CHECK 

Discussion:  This  routine  is  called  each  time  a special  point  is  isolated  (when 
comprehensive  trajectory  function  monitoring  under  the  QJEX  indicator  is  invoked); 
all  function -values  to  be  printed  are  loaded  into  the  general  storage  array  after 
being  converted  to  output  dimensions. 

Subroutine  TRAVEL  is  called  merely  to  compute  and  load  the  ecliptic  longi- 
tude into  the  storage  array.  The  indicator-locations  of  the  storage  array  are  set 
to  code-values  indicating  maximum,  minimum,  or  other  remarkable  point, 
corresponding  to  the  isolated  value  in  question.  This  information  is  transferred  to 
auxiliary  storage  arrays  in  subroutine  STORE  and,  finally,  used  in  subroutine 
EXTAB. 


LOAD  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

— 

Common 

Description 

B(2,  30) 

U 

EXTREM 

Array  of  values  of  functions  monitored 
along  the  trajectory. 

J 

ux 

Counter  and  index,  corresponding  to  the 
j point  isolated  within  the  current 
computation  step. 

R(2) 

UA 

REAL8 

Spacecraft  solar  distance,  r,  in  AU,  at 
current  time  (R(2))  and  at  start  of 
current  computation  step  (R(l)). 

X(50) 

UA 

REAL8 

Array  of  trajectory  integrated  variables. 
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LOAD  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

IC 

ux 

Indicator  which  selects  the  particular 
trajectory  function,  the  special  value  of 
which  has  been  isolated. 

JC 

u 

INTGR4 

Counter  corresponding  to  the  JCth 
specified  time-function  value  (i.e.,  the 
time)  isolated  thus  far  on  the  current 
trajectory  segment.  Attains  values 
greater  than  one  when  imposed  coast 
phases  are  invoked. 

SX(50) 

UA 

REAL8 

Array  of  trajectory  integrated  variables 
corresponding  to  the  start  of  the  current 
computation  step. 

DEG 

u 

REAL8 

Radians  to  degrees  conversion  factor. 

PHI 

u 

REAL8 

Thrust  angle  0,  in  radians. 

PSI 

u 

REAL8 

Thrust  angle  ij),  in  radians. 

CEPS 

(14,20,2) 

s 

EXTREM 

! 

General  array  of  isolated  points,  con- 
taining function  values  and  descriptive 
information  associated  with  the  current 
computation  step. 

HEAT 

u 

LOGIC  4 

Indicator  for  maintaining  solar  panels 
normal  to  sun  during  high  solar  proximity. 

MODE 

u 

INTGR4  . 

Power  variation  option  selector. 

NCEP 

u 

INTGR4 

Maximum  number  of  different  parameters 
which  are  stored,  to  be  printed. 

POWR 

u 

REAL8 

Power  ratio,  yq. 

XCOM(6) 

u 

REAL8 

Position  and  velocity  vectors  of  space- 
craft with  respect  to  reference  body,  as 
specified  by  the  program  input  quantity 
NDIST;  i.e.,  communication  distance 
vector. 

i 
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LOAD  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ANGLE 

U 

REAL8 

Travel  angle,  6^  in  radians. 

COAST 

U 

LOGIC4 

Indicator  for  coast  or  thrust  phase. 

CONTM 

U 

REAL8 

Tau  to  days  conversion  factor. 

ERODE 

u 

LOGIC4 

Indicator  for  power  degradation. 

FIRST 

u 

LOGIC4 

Indicator  for  being  at  initial  time  of 
current  trajectory  segment. 

GLARE 

u 

REAL8 

Communication  angle,  in  radians. 

JCMAX 

u 

INTGR4 

Maximum  value  of  JC,  corresponding  to 
the  end  of  the  current  trajectory  segment. 

PCURV 

u 

LOGIC4 

Indicator  for  condition  in  which  solar 
panels  are  in  position  to  receive  maxi- 
mum power,  when  degradation  option 
in  invoked. 

THETA 

u 

REAL8 

Thrust  angle  0,  in  radians. 

DENSIT 

u 

REAL8 

-2 

Power  density,  d,  in  AU 

MAXPOW 

u 

I 

LOGIC4 

Indicator  for  mode  of  operation  in  which 
solar  panels  are  maintained  in  position 
to  receive  maximum  power,  when 
degradation  option  is  invoked. 

SKOUNT 

u 

REAL8 

Number  of  iterations  in  subroutine 
INTERP  required  to  Isolate  the  remark- 
able point. 

SWITCH  (2) 

u 

REAL8 

Thrust  switch  function,  a (defined  in 
similar  manner  to  R(2)). 

TANGLE 

su 

REAL8 

Ecliptic  longitude,  in  radians. 
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Name: 


MAIN 


Not  applicable 

BEGIN,  CORNER,  FINISH,  GUESS,  INPUT, 
MINMX3,  Q START,  READER,  TKTOK 

INTGR4,  LOGIC4,  REAL8 

Not  applicable 

Not  applicable 

Discussion:  This  main  program  provides  the  overall  control  for  the  program. 
Fundamental  program  constants  are  first  generated  by  subroutine  BEGIN.  After 
this,  the  point  of  execution  cycles  through  the  MAIN  program  once  per  case,  and 
a single  computer  run  generally  may  consist  of  several  cases.  For  each  case, 
the  program  inputs  are  read  in,  required  initializations  and  printouts  are  per- 
formed, the  program's  iteration  logic  optionally  works  toward  obtaining  a con- 
verged optimum  rocket  trajectory,  and  a final,  summary  trajectory  is  generated 
and  printed. 


Calling  Argument: 
Referenced  Sub-programs: 

Referenced  Commons: 

Entry  Points: 

Referencing  Sub-programs: 
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MAIN  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

QPR 

U 

LOGIC4 

Printout  indicator,  initialized  in 
subroutine  QSTART. 

MOPT 

UA 

INTGR4 

Ballistic  option  indicator,  input  to 
the  program. 

NSET(5) 

UA 

INTGR4 

Iteration-sequence  control  array. 

ERROR 

UA 

LOGIC4 

Program  master  error  indicator. 

JHUNG 

U 

INTGR4 

Propulsion  corner  control  indicator, 
computed  in  subroutine  CORNER. 

KOUNT 

su 

INTGR4 

Case  counter. 

KPART 

A 

INTGR4 

Indicator  for  option  for  automatically 
selecting  improved  independent  para- 
meter perturbations  for  generating 
the  iterator's  partial  derivative  matrix; 
an  input  to  the  program. 

MPERF 

A 

INTGR4 

Indicator  which  selects  the  quantity 
to  be  optimized  when  the  iterator  is 
operating  in  the  improve  mode. 

MREAD 

U 

INTGR4 

Indicator  for  reading  the  trajectory 
starting  parameter  values  into  the 
program  from  cards  (unit  5). 

STATE  (6) 

A 

REAL8 

Array  containing  the  Cartesian  position 
and  velocity  components  of  the  primary 
target,  in  the  ecliptic  system,  in  AU 
and  AU/tau,  input  to  the  program. 

CONVRG 

A 

LOGIC4 

, 

Iterator  convergence  indicator. 

I 
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PRECEDING  PAGE  BLANK  NOT  FILMED 


Name: 

Calling  Arguments: 
Referenced  Sub-programs: 
Referenced  Commons: 


MINMX3 

MSET,  XERROR,  XCONVG,  KPART,  MPERF,  PD5, 
CCHECK 

CCHECK* , PARINC,  PD5**,  PMPINT,  PMPRNT, 
S1MEQ,  SMQINT,  TIKTOK 

INTGR4,  ITERAT,  ITER2,  LOGIC4,  REAL8 


Entry  Points : None 

Referencing  Sub-programs:  GUESS,  MAIN,  SWING 


Discussion:  MINMX3  is  the  subroutine  which  drives  the  two-point  boundary  value 
problem  to  a solution.  The  iterator's  underlying  mathematical  analysis  is  formu- 
lated as  follows.  Let  X denote  the  vector  of  independent  variables  and  let  Y de- 
note the  vector  of  dependent  variables.  The  relationship  between  these  two  vectors 
is  given  by 

Y = F(X). 

The  vector  function,  F,  is  evaluated  by  Integrating  the  trajectory;  that  is,  given 
a complete  set  of  control  parameters  and  initial  conditions,  the  corresponding 
values  of  the  end  conditions  Y can  be  determined.  Subroutine  PD5  maps  X onto 
Y and  is  therefore  a software  package  which  generates  the  function  F . The  pro- 
blem is  to  find  the  vector  X*  which  will  result  in  specified  values  of  the  dependent 
variables  Y* , that  is,  to  solve 

Y*  = F(X*), 


where  Y*  is  known.  This  is  formulated  as  a minimization  problem.  The  weighted 
sum  of  the  residuals  q.  is  given  by 

= ” F(Xl>]TWy  [y*  - F(X.)]  , 

where  X is  the  current  estimate  of  the  independent  variables  and  W is  a 
i j 

diagonal,  positive  definite  weighting  matrix. 

♦CCHECK  is  PRINTR,  IMPRNT,  or  SWPRNT; 

**PD5  is  TRAJ,  IMPULS,  or  SWTRAJ. 
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The  problem  is  to  choose  a new  value  X to  minimize  q . If  X 

i+1  i+1  i+1 

is  close  to  X.,  then 

F(X.+1>  = F(X.)  + PAX, 

where  AX  = X.+^  - X.  and  the  partial  derivative  matrix,  P,  is  given  by 


Evaluating  q with  this  approximation  leads  to  the  expression, 

q.+1=  (AY-PAX)TWy  (AY  - PAX), 

where  AY,  the  residual  vector,  is  given  by 

AY  = Y*  - F(X.)  . 

The  problem  is  then  to  choose  AX  to  minimize  q.^. 

For  nonlinear  functions  F,  linear  approximations  work  best  if  AX  is 
small.  Therefore,  the  following  constraint  is  imposed, 

AXTW  AX  s l , 
x 

'where  is  the  input  diagonal,  positive  definite  weighting  matrix  associated 
with  the  independent  parameters. 

Attaching  the  constraint  with  a positive  scalar  inhibitor,  \ , the  quantity 
to  be  minimized  is  given  by 

q = (AY  - PAX)TW  (AY  - PAX)  + A(AXTW  AX). 

y x 


Finding  the  minimum  of  the  function  yields  the  solution. 


This  equation  is  solved  by  subroutine  SIMEQ.  It  can  be  shown  that  as  X increases, 
t decreases  monotonically.  Therefore,  X can  always  be  chosen  large  enough  to 
satisfy  the  above  inequality.  Moreover,  if  X is  sufficiently  large,  the  correction 
is  approximately 

AX  = 7 W "Vw  ) AY. 

X x y 

For  AX  small  enough,  or  X large  enough,  we  are  guaranteed  that 


It  is  advantageous  to  take  as  large  a step  toward  satisfying  Y*  - F(X*) 

as  possible.  The  procedure  is  initiated  with  a relatively  small  value  of  X . The 

idea  is  to  make  a correction,  determine  if  any  improvement  is  made,  and,  if  not, 

cut  back  on  the  correction.  The  following  iteration  scheme  is  utilized.  Given 

X , the  mapping  F is  executed  again  to  produce  Y.+1  starting  with  the  values 

X =X  + AX,  and  q is  calculated,  q.  , is  then  compared  with  q.  If 
i+1  i i+1  i+l  1 

there  is  no  improvement,  X is  increased,  AX  is  recalculated  and  a new  mapping 

is  executed.  This  is  repeated  until  an  improvement  results.  When  this  happens, 

the  mapping  is  executed  again  and  the  partial  derivative  matrix  is  computed.  X 

is  reduced  by  a factor  of  64.  The  iteration  continues  until  either  the  end  conditions 

are  satisfied  within  the  prescribed  tolerance  or  no  significant  improvement  can 

be  made  or  the  maximum  number  of  iterations  is  exceeded. 

The  constraints,  Y,  are  divided  into  two  types,  parameters  that  are 
driven  to  a given  value  (point  constraints)  and  parameters  to  be  maximized  or 
minimized  (performance  indices). 

For  a well-posed  problem,  there  is  only  one  performance  index.  For 

each  dependent  variable,  y , two  values  must  be  specified,  ym{n  and  ymax. 

which  define  the  acceptable  range.  If  a dependent  variable  is  a point  constraint, 

v and  y are  chosen  close  together 
Jmin  max 
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y . = y*  - — 
Jmin  J 2 


y = y*  + — , 
"max  J 2 


where  y*  is  the  desired  value  and  6 is  the  neighborhood -width,  or  tolerance, 

utilized  for  weighting  purposes.  For  the  performance  index,  the  interval  is  chosen 

so  that  it  cannot  possibly  be  attained  if  the  other  constraints  are  satisfied.  For 

instance,  if  y is  to  be  minimized,  y . and  y are  taken  smaller  than 

min  max 

attainable,  conversely  if  y is  to  be  maximized,  y . and  y are  taken  larger 

mm  max  & 

than  attainable.  In  this  way  the  iteration  procedure  drives  the  variable  to  be 
optimized  in  the  correct  direction  until  no  significant  improvement  is  possible  or 
the  input  maximum  number  of  iterations  is  exceeded. 

Two  modes  of  solution  are  available,  the  satisfy  mode  and  the  improve 
mode.  In  the  satisfy  mode,  the  iterator  attempts  only  to  satisfy  the  point  constraints. 
The  improve  mode  adds  the  performance  index  to  the  end  conditions,  and,  through 
proper  weighting,  generates  trajectories  with  an  improved  performance  index  while 
maintaining  satisfaction,  or  near  satisfaction,  of  the  point  constraints. 


The  scale  matrices  W and  W are  used  to  make  elements  of  the  vectors 

x y 

X and  Y compatible  for  the  iteration  procedure.  The  relative  importance  of  the 
variables  is  represented  in  this  way.  Differing  magnitudes  are  compensated  for 
through  the  weighting  matrices.  is  input  to  the  program,  is  computed 

-internally  using  the  input  tolerances  and  importance  factors.  For  point  constraint 
variables,  the  elements  of  W are  given  by  the  following  relation: 


-40 


W = 


(V2) 


2 ’ 


where  6^  is  the  corresponding  tolerance  (neighborhood  full-width).  The  weight- 
ing factor  for  the  performance  index  is  computed  from 


W = 

y 


nm  „-40 

2 2 
r 
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where  r is  the  performance  index  residual,  n is  the  number  of  variables  to  be 
satisfied,  and  m is  10~4  when  the  iterator  is  operating  in  the  satisfy  mode  and 
256  when  in  the  improve  mode.  This  balances  the  residual  in  the  parameter  being 
optimized  against  the  weighted  residuals  in  the  other  variables,  to  satisfy  the  con- 
straints as  the  optimization  proceeds. 

Messages  and  printouts:  Several  diagnostic  and  informative  messages  are  provided 
to  describe  the  progress  made  by  the  iterator  or  any  problems  encountered.  In  all 
cases,  upon  exiting  the  routine,  the  trajectory  counters,  KOUNT  and  L,  are  printed 
on  unit  6 in  the  following  message: 

TRAJECTORIES  WITHOUT  PARTIAL  DERIVATIVES  AND TRAJECTORIES 

WITH  PARTIAL  DERIVATIVES  REQUIRED  FOR  THIS  CASE. 

and  on  unit  12  in  the  form: 

TRAJECTORIES  WITHOUT  AND WITH  PARTIALS. 

If  the  problem  does  not  involve  a performance  index  and  all  point  constraints 
are  satisfied,  or  if  a performance  index  is  being  optimized  and  no  further  improve- 
ment is  possible,  the  following  message  is  printed  on  units  6,  11,  and  12: 

THIS  CASE  IS  CONVERGED. 

Upon  attainment  of  convergence  in  the  satisfy  mode  and  just  prior  to  starting 
the  improve  mode,  the  message 

ITERATOR  IS  NOW  IN  IMPROVE  MODE. 

is  printed,  on  units  6,  11,  and  12. 

If  the  point  constraints  cannot  be  satisfied  in  the  satisfy  mode,  the 
message 

THIS  CASE  WILL  NOT  CONVERGE, 
is  printed  on  the  same  three  units. 
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If  the  number  of  iterations  in  either  mode  exceeds  the  input  limit,  the 
following  message  is  printed  on  the  three  units: 

MAXIMUM  NUMBER  OF  ITERATIONS  EXCEEDED. 

If  an  error  condition  is  detected  in  PD5  on  the  first  trajectory  (usually  re- 
sulting from  input  errors),  the  following  message  is  printed  on  units  6,  11,  and 
12: 

FIRST  GUESSES  WILL  NOT  RUN  TRAJECTORY. 

If  an  error  condition  is  detected  in  PD5  while  generating  the  nominal  or 
perturbation  trajectories,  the  following  message  is  printed  on  unit  6: 

ERROR  IN  PARTIAL  DERIVATIVE  CALCULATION. 

. If  an  error  condition  occurs  when  attempting  to  optimize  the  independent- 
variable  perturbation  step  sizes  via  the  option  invoked  by  program-input  KPART, 
the  message  is  printed  on  unit  6: 

TRAJ  ERROR  AFTER  PARINC. 

Any  one  of  the  last  five  messages  above  will  also  generate  the  message: 
ITERATOR  IS  GIVING  ERROR  RETURN. 

and  indicates  an  error  condition  to  be  returned  from  MINMX3  through  the  calling 
argument  XERROR. 

If  either  the  number  of  independent  variables  or  the  number  of  dependent 
variables  exceeds  35,  the  message 

_n VARIABLES  INVALID  IN  MINMX3.  RUN  TERMINATED. 

is  printed  on  units  6 and  12,  and  execution  is  immediately  terminated,  n is 
the  number,  greater  than  35,  of  either  independent  or  dependent  variables  which 
were  attempted. 

Whenever  any  alteration  of  any  independent-variable  perturbation  step  size 
occurs  as  a consequence  of  proximity  of  a trajectory  to  a propulsion-time  corner, 
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assuming  the  program  input  NSWPAR  is  activated,  the  message 
MINOR  m OLD  DX  = a_  NEW  DX  = b 

is  printed  on  unit  6,  in  which  m is  the  number  identifying  the  mth  neighboring 
(minor)  trajectory  being  generated  (in  the  same  order  as  printed  on  the  "ITERATOR 
PARAMETERS"  page),  "a"  is  the  prior  step  size  value,  and  "b"  is  the  altered 
value. 

When  special  print  is  invoked  via  the  program  input  ITPRNT,  the  following 
is  output  on  unit  6 for  each  nominal  trajectory: 

MINMX3  SPECIAL  PRINT  L,  KOUNT,  LAMBDA, RLOLD, RLNEW, RLMAX,  DK, SCALE 


In  which  L is  the  number  of  trajectories  which  have  been  generated  in  the  current 

iteration-sequence  having  partial  derivatives,  KOUNT  is  the  number  of  trajectories 

without  partial  derivatives,  LAMBDA  is  the  value  of  the  inhibitor,  X,  RLOLD  is  the 

prior  weighted  sum  of  the  residuals,  q.(old),  RLNEW  is  the  current  weighted  sum 

of  the  residuals,  q.,  RLMAX  is  n2~4^  (see  text  above  for  nomenclature),  DK  is 
-40 

n,  and  SCALE  is  2 


MINMX3  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(35) 

SU 

ITER2 

Array  of  independent  variable  values, 
X,  corresponding  to  program  input 
quantities,  XI (1). 

Q(35) 

SU 

ITER2 

Array  of  dependent  variable  values,  Y, 
corresponding  to  program  input  quanti- 
ties Yl(l),  which  are  the  desired  values. 

BS(35) 

u 

ITER2 

Array  of  maximum  step-sizes  for  the 
independent  variables,  corresponding 
to  program  input  quantities  Xi(3). 

629 


V 


MINMX3-7 


MINMX3  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BW(35) 

U 

ITER2 

Array  of  independent -variable  weighting 
factors,  corresponding  to  program  input 
quantities  Xi(5). 

MM  (70) 

u 

INTGR4 

Index  set  of  active  dependent  variables. 

PM(1225) 

SUA 

ITER  2 

Array  containing  the  negative  of  the 
partial  derivative  matrix,  -P. 

BBB(35) 

SU 

ITER  2 

Array  of  independent-variable  perturba- 
tion step  sizes,  corresponding  to 
program  input  quantities  Xi(4). 

NPR  (4) 

U 

INTGR4 

Printout  control  vector. 

NSW 

u 

INTGR4 

Total  number  (in  MINMX3)  of  thrust- 
switching points  along  the  trajectory 
recently  generated. 

PD5 

ux 

Name' of  mapping  subroutine,  F. 

YYY(35) 

SU 

ITER2 

Array  of  dependent  variable  values 
corresponding  to  the  nominal  trajectory; 
the  nominal  trajectory  is  a trajectory 
which  the  neighboring  trajectories  are 
generated  with  respect  to. 

FXL1(70) 

s 

IT  ERA  T 

Array  of  dependent  variable  values 
corresponding  to  the  initial  nominal 
trajectory,  eventually  used  in  measur- 
ing the  progress  of  the  iteration 
sequence. 

HUNG 

u 

LOGIC4 

Indicator  for  the  condition  in  which  the 
iteration  sequence  is  making  no  signifi- 
cant progress  because  the  trajectory  is 
in  high  proximity  to  a propulsion  corner; 
"hung  on  a thrust  phase  or  a coast  phase". 

LINE 

SU 

INTGR4 

Counts  the  number  of  lines  which  have 
been  written  on  unit  11. 

MINMX3  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

LOOP 

SUE 

Counts  the  number  of  neighboring  tra- 
jectories which  have  been  generated , 
associated  with  the  current  nominal 
trajectory  (or  mapping). 

MSET<5) 

UX 

Control  array: 

(1)  Number  of  independent  variables. 

(2)  Number  of  dependent  variables. 

(3)  Maximum  number  of  iterations 
permitted  in  the  satisfy  mode. 

(4)  Indicator  for  starting  in  the 
satisfy  (=0)  or  improve  (/0)  mode. 

(5)  Maximum  number  of  iterations 
permitted  in  the  improve  mode. 

NSWX(50) 

S 

INTGR4 

Array  of  stored  values  of  NSW,  used  at 
the  end  of  the  iteration  sequence  to  print 
the  "switch  count  history". 

QMAX(35) 

u 

ITER  2 

Array  of  upper  allowable  values  for  the 
dependent  variables. 

l 

QMIN(35) 

u 

ITER2 

Array  of  lower  allowable  values  for  the 
dependent  variables. 

BNOMX 

(35) 

s 

ITER  2 

Array  of  independent -variable  stored 
values  corresponding  to  the  current 
nominal  trajectory. 

KOUNT 

SUE 

Counter  of  the  number  of  trajectories 
generated  without  partial  derivatives 
in  the  current  iteration  sequence. 

KPART 

UAX 

Program  input  quantity  indicating  the 
desire  to  optimize  the  independent- 
variable  perturbation  step  sizes. 

MPERF 

UX 

Array  index  indicating  the  performance 
index  among  the  dependent  variables, 
used  only  in  the  improve  mode. 
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MINMX3  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

CCHECK 

UX 

Name  of  print  subroutine. 

IT  PR  NT 

U 

INTGR4 

Program  input  quantity  which  invokes 
special  print  from  MINMX3. 

LAMBDA 

SUE 

The  inhibitor,  \ . 

NSWPAR 

U 

INTGR4 

Program  input  quantity  indicating  desire 
to  control  independent  variable  perturba- 
tion increments. 

WONDER 

u 

LOGIC4 

Indicator  for  bypassing  all  tests  associated 
with  the  condition  related  to  the  indicator 
HUNG. 

XCONVG 

sx 

. Convergence  indicator  output  from 
MINMX3. 

XERROR 

sx 

Error  indicator  output  from  MINMX3. 
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Name: 


MORE 


Calling  Argument:  None 


Referenced  Sub-programs:  EFMPRT,  EXTAB,  SWING,  TAP,  TAPSET 

Referenced  Commons : INTGR4,  LOGIC4,  REALS,  SOLSYS 


Entry  Points:  None 

Referencing  Sub-programs:  QPRINT 


Discussion:  This  routine  is  utilized  when  more  analysis  and  printout  is  desired  in 
addition  to  that  associated  with  subroutine  QPRINT. 

Subroutine  MORE  controls  the  ballistic  swingby-continuation-analysis,  the 
optional  detailed-printout  associated  with  the  same,  and  also  the  optional  ballistic 
trajectory-extension  printout  invoked  via  program  input  TGO. 

Regarding  the  swingby-continuation,  MORE  generates  the  condensed  planet- 
selection  vector  NOPT4(i)  and  associated  trajectory-segment  flight  times  TT2(i), 
and  then  controls  the  swingby-continuation-analysis  wherein  each  cycle  through  a 
DO  loop  generates  a single  swingby  and  post-swingby  trajectory  segment  via  a 
call  to  subroutine  SWING.  This  may  encompass  either  multiple  ballistic  swingbys 
along  one  trajectory,  or  multiple  swingbys  past  the  primary-target  (at  the  same 
time)  in  order  to  attempt  to  obtain  different  swingby  solutions;  the  mode  of  swingby 
analysis  is  determined  by  program  input. 

Each  ballistic  trajectory-segment  printout  is  controlled  by  calling  a sequence 
as  follows: 

(Initialize  for  ballistic  trajectory  segment) 

(Generate  segment) 

(Print  entire  extremum  table  to  end  of  segment) 

(Print  post-swingby  target  ephemerides) 

(Restore  parameter  values) 


of  five  subroutines, 

TAPSET 

TAP 

EXTAB 

EFMPRT 

TAPSET 


653 


MORE-1 


When  generating  multiple  swingbys  past  the  primary  target  and  printing 
the  resulting  successfully-converged  trajectory  segments,  multiple  identical 
solutions  are  sorted-out  and  eliminated. 

Messages  and  printouts:  When  ballistic  swingby-continuation  analysis  is  invoked, 
the  heading  is  printed  on  unit  6,  at  the  top  of  a new  page  following  the  Performance 
Summary  page  of  each  case : 

SWINGBY  CONTINUATION  ANALYSIS 

After  the  swingby-continuation  analysis  has  been  completed,  for  each  case,  the 
following  summary  is  printed  on  unit  12: 

SWINGBY  SUMMARY  PLANET/SUCCESS, BURN/PASS  RADIUS 
n/x, y/r  n/x, y/r  n/x,  y/r 

where  n is  the  post-swingby-target  number,  x is  a logical  indicator  (T  or  F) 
for  whether  or  not  the  attempted  solution  was  successfully  obtained,  y is  a logical 
indicator  (T  or  F)  for  whether  or  not  the  swingby  maneuver  was  powered  (Av  > 0), 
and  r is  the  swingby  passage  radius,  in  planet  radii.  The  set  of  parameters  is 
printed  up  to  (a  maximum  of)  ten  times,  depending  upon  how  many  solutions  were 
attempted. 

Then,  if  printout  of  the  post-swingby  trajectory  segments  is  invoked,  each 
is  preceded  by  the  heading, 

DETAILED  PRINT  OF  POST-SWINGBY  TRAJECTORY  SEGMENT  TO  (name) 
FOR  SOLUTION  HAVING  (r)  PASSAGE  DISTANCE 

in  which  "name”  is  the  name  of  the  post-swingby  target,  and  "r"  is  the  swingby 
passage  distance,  in  planet  radii. 

When  printout  of  the  ballistic  trajectory-extension  is  invoked,  it  is  preceded 
by  the  heading, 

DETAILED  PRINT  OF  POST -TARGET  TRAJECTORY  FOLLOWS. 
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MORE  EXTERNAL  VARIABLES  TABLE 


Variable 


Use 


Common 


Description 


X<50) 


SUA 


REAL8 


Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 


T2(10) 

U 

REAL8 

Initial  estimates  of  swingby-continuation 
trajectory-segment  flight  times,  in  days.  . 

APL 

(2,70) 

U 

SOLSYS 

Array  of  target  names. 

TGO 

UA 

REAL8 

Ballistic  trajectory-extension  print 
option  indicator. 

TSUM 

SU 

REAL8 

Time  elapsed  since  primary-target 
swingby  and  current  swingby,  in  days. 

EXTRA 

SU 

LOGIC4 

Indicator  for  extra  printout  for  each 
trajectory  block  print  (computation  step). 

MOPT3 

UA 

INTGR4 

Primary-target  selector  (planet  number). 

MOPT4(10) 

U 

INTGR4 

Planet-numbers  of  post-swingby  targets . 

QMORE 

S 

LOGIC4 

Indicator  which  tells  remainder  of  pro- 
gram that  subroutine  MORE  is  in  control. 

INTERX 

S 

INTGR4 

Index  used  in  subroutine  EFM  which  in- 
dicates which  array  locations  are 
applicable  in  selecting  orbital  elements. 

MSW1NG(10) 

u 

INTGR4 

Swingby  maneuver  type  selectors. 

NSWING 

u 

INTGR4 

Uniform  sw ingby-maneuver  type  selector. 

TANDEM 

SU 

LOGIC4 

Indicator  for  multiple  swingbys  along  a 
single  trajectory. 

TDATE2 

u 

REAL8 

Julian  date  at  the  primary  target,  in 
days  (less  2400000). 
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MORE  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XSWING 

(3,10) 

U 

REAL8 

Array  of  velocity  vectors  consisting  of 
initial  velocity  guesses  of  a given  post- 
swingby  trajectory  segment,  input  to  the 
program,  in  EMOS. 

YSWING 

(3,10) 

S 

REAL8 

Same  as  XSWING,  with  blank  entries 
deleted  and  zero  entries  set  to  first 
velocity  vector,  in  EMOS  (used 
internally). 
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Name: 


OMASS 


1 


Calling  Argument:  V for  OMASS; 

MBOOST,  Bl,  B2,  B3,  K for  BOOSTR 

Referenced  Sub-programs:  DECLIN,  GET  I,  GUNTHR  for  OMASS; 

~ ” None  for  BOOSTR 


Ref er enc ed  Commons: 


Entry  Points: 

Referencing  Sub-programs: 


GUNCOM,  ITERAT,  LOGIC4,  REAL8 
BOOSTR 

TRAJ  for  OMASS; 

QPRINT,  QSTART  for  BOOSTR 


Discussion:  OMASS  computes  the  launch  vehicle  mass  (payload)  injected  into  helio- 
centric space  as  a function  of  the  launch  characteristic  speed  v according  to  the 
approximate  formula, 


v -vc/b2  w 

m =b„  e c * - b, 
o 1 


where  b , b , and  b are  coefficients  which  characterize  the  launch  vehicle’s 
1 2 3 

performance  capability. 

Two  cases  exist  in  the  computation  of  v , depending  on  the  relation  of  the 
departure  asymptote  declination  6 (obtained  from  subroutine  DECLIN)  to  the  park- 
ing orbit  inclination  i: 

(1)  -i  s 6 ^ i 

In  this  case,  the  launch  maneuver  is  entirely  coplanar,  and  the  characteristic 
speed  is  given  by, 

/ 2 2 

V = ,/  V + V » 

c V »o  e 

9 

where  v is  a constant;  v = 2v  , where  v is  the  circular  orbit  speed  at  an 
e e o o 

altitude  of  185  km  above  the  Earth,  v is  the  launch  hyperbolic  excess  speed. 

oo  o 
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NOT  film® 


669 


OMASS-1 


(2)  |6  | > i 


In  this  case, 

2 2 

v + v + Av.  + Av  , 

“o  e i g 

where 

A .2 

Av.  = c i + c„  i + c , 
i 1 2 3 

and 

Av  =v  -(,/v2  +v2-v  ). 
g g \V  ®o  e o/ 

In  the  above,  Av.  is  the  speed  penalty  corresponding  to  a non-due-east  launch, 
and  the  values  of  the  coefficients  c , c , and  c are  chosen  to  fit  the  penalty 
curve  given  in  Reference  1 : 

o 

c = .05662285136  m/sec/deg 
c =.  9039433771  m/sec/deg 

Ct 

c =-71.75429726451  m/sec 

O 

AV  is  the  speed  penalty  associated  with  a non-coplanar  burn  out  of  the  circular 

o 

parking  orbit,  and  the  value  of  v is  produced  by  subroutine  GUNTHR;  in  the 

o 

discussion  of  subroutine  GUNTHR,  v is  denoted  Av. 

g 

If  the  MENMX3  iterator  has  been  assigned  the  task  of  optimizing  the  parking 
orbit  inclination  i,  then  the  transversality  condition  associated  with  i is  computed, 

T(i)  = 2c  i + c - Bv  /b  i , 

where  l is  the  out-of-plane  angle  which  the  departure  asymptote  makes  with  the 
parking  orbit  plane.  The  value  of  T(i)  is  used  in  subroutine  GETQ.  When 
MINMX3  does  not  optimize  i,  subroutine  GET  I performs  the  task. 
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In  either  case  above,  the  derivative  of  initial  mass  with  respect  to 
characteristic  speed  is  computed, 


dvc  b2 


Then  the  partial  derivative  of  initial  mass  with  respect  to  launch  hyperbolic  excess 
speed  is  given  by 

dm  dm  dv 


dv  dv  3 v 

on  o c “0 


where,  in  case  (1)  above, 


d v 


dv 


dv  dv  v 

00Q  ®0  C 


and  in  case  (2) , 


dv 


dv 

dv 


which  is  computed  in  subroutine  GUNTHR. 

The  launch  vehicle  coefficients  b^  bg,  and  bg  are  generated  by  a small, 
auxiliary  computer  program  which  is  designed  to  produce  curve-fit  coefficients 
yielding  a least-squares-error  fit;  the  curve-data  input  to  the  auxiliary  program 
are  obtained  from  Reference  1. 

Entry  point  BOOSTR  performs  the  initialization  of  the  required  coefficients 
at  the  beginning  of  each  case,  and  the  printout  of  a single  line  on  the  Performance 
Summary  page  giving  the  launch  vehicle  name  and  coefficients.  The  circular  orbit 
speed  at  an  altitude  of  185  km  is  computed, 
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Messages  and  printouts:  A single  line  of  information  is  printed  on  the  Performance 
Summary  page  of  each  case,  as  follows: 

LAUNCH  VEHICLE  IS  (name)  (COEFFICIENTS  = (bl)  ) 


where  ''name”  is  the  launch  vehicle  name  if  the  vehicle  is  chosen  from  the  list  of 
those  available  internally  in  the  program,  and  is  "INPUT”  if  the  launch  vehicle 
coefficients  are  input  to  the  program,  b , b , and  b are  the  coefficients  which 

i u O 

characterize  the  performance  capability  of  the  launch  vehicle,  where  b and  b 

1 3 

are  in  kilograms  and  b is  in  meters/second. 

Reference: 


1.  "Launch  Vehicles  Estimating  Factors,  " NASA  Office  of  Space  Science, 
1973  Edition. 


OMASS  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

K 

UX 

Indicator  for  initialization  or  print. 

0(70) 

u 

ITERAT 

Array  of  iterator  independent-variables ; 
0(17)  is  parking  orbit  inclination,  i,  in 
radians. 

V 

UAX 

Launch  hyperbolic  excess  speed,  v , 
in  EMOS.  “° 

AM 

su 

REAL8 

Initial  spacecraft  mass,  mQ,  in  kilograms. 

B1 

UX 

Launch  vehicle  coefficient  (input  to  pro- 
gram), b^,  in  kilograms. 

B2 

UX 

i 

Launch  vehicle  coefficient  (input  to  pro- 
gram), b , in  meters/second. 

B3 

UX 

Launch  vehicle  coefficient  (input  to  pro- 
gram), b , in  kilograms. 

DV 

u 

GUNCOM 

Minimum  incremental  speed  to  depart  the 

parking  orbit,  v , in  EMOS. 

S 
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OMASS  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

VO 

SU 

GUNCOM 

Circular  orbit  speed,  v , in  EMOS. 

AAA 

su 

REAL8 

Non-due-east  speed  penalty  coefficient, 
c , in  EMOS/radian  . 

ABX(70) 

u 

LOG1C4 

Array  of  iterator  independent -variable 
indicators. 

ABY(70) 

u 

LOGIC4 

Array  of  iterator  dependent -variable 
indicators. 

AMD 

s 

REAL8 

3 m /3v  , inkg/EMOS. 

o °°o 

BBB 

su 

REAL8 

Non-due-east  speed  penalty  coefficient, 
c , in  EMOS/radian. 

Ct 

CCC 

su 

REAL8 

Non-due-east  speed  penalty  coefficient, 

c , in  EMOS. 

3 

DEG 

u 

REAL8 

Radians-to-degrees  conversion  factor. 

1 

100 

s 

GUNCOM 

Out-of-plane  angle,  i^-  |6  | -i,  in 
radians. 

VOO 

s 

GUNCOM 

Departure  hyperbolic  excess  speed, 

v , in  EMOS. 

®o 

ANG1 

su 

REAL8 

Launch  site  latitude,  in  radians. 

ANG2 

su 

REAL8 

Maximum  permissible  parking-orbit 
inclination,  due  to  range  safety  con- 
siderations, in  radians. 

DECL 

UA 

REAL8 

Departure  asymptote  declination,  6 , 
in  radians. 

FMSI 

su 

REAL8 

T (i)  = 3v  /3  i,  in  EMOS/radian. 
c 

CONSP 

u 

REAL8 

Speed  conversion  factor,  EMOS  to 
km/sec. 

- 
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OMASS  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

_ \ f 

Description 

DMDVC 

SU 

REAL8 

dm  /dv  , in  kg/EMOS. 
o c 

DVIOO 

U 

GUNCOM 

Sv  /di  in  EMOS/radian. 
6 

DWOO 

U 

GUNCOM 

dv  /dv 
g ®o 

QDECL 

u 

LOGIC4 

Non-coplanar  launch  maneuver  indicator. 

VODIV 

s 

GUNCOM 

Inverse  of  circular  orbit  speed,  l/v  , 
in  EMOS-1.  0 

XANG1 

u 

REAL8 

Launch  site  latitude  input  to  the  program, 
in  degrees. 

XANG2 

u 

REAL8 

Maximum  permissible  parking-orbit 
inclination,  due  to  range  safety  con- 
siderations, input  to  the  program,  in 
degrees. 

XINCL 

SU 

REAL8 

Parking  orbit  inclination,  i,  in  radians. 

LDVIOO 

s 

GUNCOM 

Indicator  to  bypass  computations  of 
dv  /di  in  subroutine  GUNTHR. 

g 00 

LDVVOO 

s 

GUNCOM 

Indicator  to  bypass  computations  of 

dv  /dv  in  subroutine  GUNTHR. 

g ®o 

MBOOST 

ux 

Launch  vehicle  selector. 
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preceding  page  blank  not  filmed 

Name:  PARINC 

Calling;  Argument:  P»  KPART,  LLL,  MMM 

Referenced  Sub-programs:  TRAJ 

Referenced  Commons:  INTGR4,  ITERAT,  ITER2,  LOGIC4 

Entry  Points:  None 

Referencing  S ub -prog ram s : MINMX3 

Discussion:  The  function  of  this  routine  is  to  approximately  determine  the 
optimum  values  for  the  iterator's  independent-variable  perturbation-step-sizes. 

The  program  generates  a partial  derivative  matrix  of  the  dependent  variables 
with  respect  to  the  independent  variables  by  integrating  trajectories  neighboring 
the  current  nominal  trajectory.  The  perturbation  step  size  of  each  independent 
variable,  which  is  used  to  vary  that  lone  variable  in  order  to  generate  its  asso- 
ciated neighboring  trajectory,  may  be  input  to  the  program.  Each  neighboring 
trajectory  is  used  to  generate  one  column  of  the  partial  derivative  matrix,  each 
element  of  which  is  constructed  by  forming  the  simple  ratio  of  the  difference  be- 
tween the  neighboring  and  nominal  dependent  variable  values  to  the  perturbation 
step  size.  Each  element  of  the  matrix  thus  constructed  represents  the  secant- 
slope-approximation  to  the  actual  dependent  variable  slope,  and  this  approximation 
comes  closest  to  the  true  value  for  some  unique  perturbation  step  size  value  for 
each  independent  variable.  The  approximation  becomes  poor  for  large  step  sizes 
because  the  secant-slope  deviates  farther  from  the  true  slope,  and  becomes  poor 
for  very  small  step  sizes  because  the  numerical  accuracy  of  the  computer  and 
also  of  the  trajectory  generation  algorithm  with  its  numerous  Iterations  introduces 
computational  noise. 

A program  option  controlled  by  the  input  variable  KPART  is  available 
which  attempts  to  determine  the  optimum  perturbation  step  size  for  each  inde- 
pendent variable.  The  program  accomplishes  this  by  taking  a linear  walk  in 
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the  base-10  logarithm  of  each  independent  variable  step  size  starting  from  the 
input  or  default  value  and  not  exceeding  KPART  steps.  The  program  first  steps 
in  each  direction  (smaller  and  larger  step  size)  to  determine  the  proper  direction 
of  the  walk,  and  each  step  consists  of  varying  the  step  size  one-half  order-of- 
magnitude.  For  each  linear  walk  (for  each  independent  variable),  that  one  column 
of  the  partial  derivative  matrix  associated  with  the  independent  variable  is  com- 
puted for  each  step  of  the  walk,  and  each  element  of  that  column  is  compared  be- 
til  til 

tween  the  n step  and  the  (n+1)  step  of  the  walk.  The  element  which  has  the 

til  til 

largest  normalized  error  in  comparing  the  n and  (n+l)  steps  is  selected  as 
the  criterion  function,  and  this  maximum-error-element  is  allowed  to  vary  as 
the  walk  progresses.  The  walk  continues  until  the  criterion  function  is  minimized, 
at  which  point  the  optimum  perturbation  step  size  is  considered  to  be  determined 
to  within  one-half  order-of-magnitude.  The  process  is  repeated  for  each  inde- 
pendent variable  perturbation  step  size,  to  arrive  at  an  optimum  set  of  step  sizes, 
which  are  then  input  to  the  program’s  iterator  in  place  of  the  original  values.  A 
summary  of  the  step  size  optimization  is  printed. 

Messages  and  Printouts:  A summary  of  the  results  of  the  perturbation  step  size 
optimization  is  printed  as  follows: 

AUTOMATED  SELECTION  OF  OPTIMUM  PARTIALS-INCREMENTS 
I ITERATIONS  INITIAL  OPTIMUM 

j m step  (0)  step  (opt) 


where  j is  the  index  representing  the  Independent  variable,  m is  the  total 
number  of  steps  executed  in  the  linear  walk  discussed  in  the  preceding  section, 
step  (0)  is  the  initial  value  of  the  independent  variable  perturbation  step  size, 
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and  step  (opt)  is  the  new  value  of  the  step  size,  which  will  differ  from  step  (0) 
by  a factor  of  either  10m/2  or  m"m/2;  step  (opt)  is  the  optimum  step  size 
unless  m equals  KPART,  in  which  case  the  end  of  the  linear  walk  was  probably 
reached  before  attaining  the  optimum  step  size. 

If  an  error  condition  occurs  while  executing  the  trajectory  subroutine 
TRAJ,  the  following  message  is  printed 

TRAJ  ERROR  I = n LA  = _i 

after  which  execution  continues;  n is  the  current  number  of  steps  in  the  linear 
walk,  and  i is  the  loop  index  of  the  independent  variable. 

If  the  total  number  of  either  the  independent  or  the  dependent  variables 
exceeds  25,  the  following  message  is  printed  at  entrance  to  the  subroutine: 

ABOVE  OPTION  SKIPPED. 

PARTIALS-MATRICES  EXCEEDING  625  LOCATIONS  NOT  ALLOWED 
FOR  THIS  OPTION  (TO  CONSERVE  STORAGE  SPACE). 

and  the  subroutine  is  exited. 


PARINC  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(35) 

SU 

ITER2 

Iterator  independent  variable  array. 

P(625) 

SUX 

Iterator  partial  derivative  matrix  (of 
dependent  variables  with  respect  to 
independent  variables). 

Q(35) 

u 

ITER2 

Iterator  dependent  variable  array. 

BB(35) 

SU 

ITER2 

Iterator  independent  variable 
perturbation  step  size  array. 
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PARINC  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BX(5, 70) 

S 

ITERAT 

Program  input  independent  variable 
array. 

LL(70) 

U 

INTGR4 

Array  containing  the  index  set  of  the 
independent  variables. 

LLL 

ux 

Total  number  of  independent  variables 
for  the  current  problem. 

MMM 

ux 

Total  number  of  dependent  variables 
for  the  current  problem. 

CONX(70) 

u 

ITERAT 

Array  of  conversion  factors  for  the 
independent  variables. 

KPART 

ux 

Program  input  which  triggers  the  use 
of  this  subroutine;  maximum  number 
of  steps-  allowed  in  any  given  linear 
walk. 

WONDER 

su 

LOG1C4 

Logical  indicator  which  allows  or 
disallows  the  program  to  consider  if 
the  current  trajectory  is  in  the  proximity 
of  a propulsion-time  corner. 
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Name: 


PDATE 


Calling  Argument:  TDATE,  IY,  IM,  ID,  HOUR 

Referenced  Sub-programs : None 

Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  EFMPRT,  QPRINT 

Discussion:  Subroutine  PDATE  evaluates  the  calendar  date,  given  the  Julian  date. 
The  procedure  is  to  first  subtract  the  Julian  date  (with  leading  24  omitted)  of 
15020.5  from  the  input  date  to  obtain  the  number  of  days  from  January  1.0,  1900. 
The  year  of  the  input  date  is  then  determined  by  entering  a loop  and  accumulating 
the  sum  of  days  in  all  years  from  1900  until  the  sum  exceeds  the  number  of  days 
first  determined  on  entry  to  PDATE.  The  number  of  days  from  the  start  of  that 
year  is  then  determined  and  used,  with  the  aid  of  a data  table,  to  define  the  month 
and  day.  Any  fraction  of  a day  remaining  is  then  converted  to  hours  and  a return 
to  the  calling  program  is  executed.  The  subroutine  will  not  work  correctly  for  in- 
put dates  earlier  than  1900  or  later  than  2100. 

Messages  and  Printouts:  If  a date  later  than  the  year  2100  is  input,  the  following 
message  is  printed: 

PDATE  ERROR 


and  execution  continues. 
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PD  ATE  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

ID 

SX 

Calendar  day  of  the  month. 

IM 

SUX 

Calendar  month  index. 

IY 

SUX 

Calendar  year. 

HOUR 

SX 

Hour  of  the  day. 

TDATE 

UX 

Input  Julian  date,  with  leading  24 
omitted. 
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Name: 


PMPINT 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


/PM/,  KQ,  KB 

None 

None 

PMPRNT 

MINMX3 


Discussion:  This  subroutine  stores  the  integer  values  representing  the  dimen- 
sions of  the  partial  derivative  matrix  of  the  dependent  variables  with  respect  to 
the  independent  variables  of  the  two -point  boundary  value  problem  solved  by  the 
MINMX3  iterator,  and  also  determines  the  location  and  two-dimensional  array 
specification  of  the  partial  derivative  matrix,  used  in  subsequent  calls  to  entry 
point  PMPRNT. 

Messages  and  printouts:  The  entry  point  PMPRNT  performs  the  output  of  the 
partial  derivative  matrix  to  the  high  speed  printer  in  the  following  format: 


(D13.5)  

* 


p/S-GrE 


HOT 


** 


which  corresponds  to 
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9yl 

dx 

n 


Sy, 


m 


By 


m 


where  n is  the  number  of 
pendent  variables,  and  * 


independent.variables  and  m is  the  number  of  de- 
Syi 

represents  - — , i = 1,  2,  . . . , m and  **  represents 
ox 

n 


PMPINT  EXTERNAL  VARIABLES  TABLE 


1 

Variable 

Use 

Common 

Description 

KB 

sux 

The  number  of  independent  variables 
in  the  two-point  boundary  value  problem 
solved  by  the  MINMX3  iterator. 

KQ 

sux 

The  number  of  dependent  variables, 
similar  to  KB. 

PM 

(KQ,  KB) 

ux 

The  two-point  boundary  value  problem 
partial  derivative  matrix  used  by  the 
MINMX3  iterator. 
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Name: 


PRINT 


Calling  Argument:  None 

Referenced  Sub-programs:  DECLIN 

Referenced  Commons:  EXTREM,  INTGR4,  ITERAT,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  FINISH,  SOLAR,  TRAJ 

Discussion:  This  routine  prints,  on  unit  11,  those  iterator  independent-variable 
and  dependent-variable  values  which  are  "turned  on"  for  the  current  case,  L.e. , 
which  apply  to  the  two-point  boundary  value  problem  currently  being  solved. 
According  to  the  user's  option,  these  values  will  be  printed  at  each  iteration 
(from  subroutine  TRAJ)  and/or  after  the  final,  case-summary  trajectory  is  gen- 
erated (from  subroutine  FINISH).  The  output  independent  variables  are  particularly 
formatted  such  that  they  may  be  directly  input  back  to  the  program,  via  NAMELIST, 
to  start  the  trajectory  on  a continuation  computer  run. 

Only  on  the  final,  case-summary  trajectory,  selected  information  is  output 
on  unit  12  which  allows  the  user  to  obtain  an  at-a-glance  capsule  summary  of 
poignant  data  regarding  the  iteration  sequence  and  trajectory.  Much  of  this  is  des- 
cribed in  the  Messages  and  Printouts  Section  below.  One  specific  parameter  which 
is  output  (except  on  all -ballistic  or  forced-thrusting  trajectories)  is  the  propulsion- 
corner  proximity  A£ , defined  by  the  arbitrary,  yet  simple,  relation: 


A£  = l- 


min 


max 


where  a is  the  minimum  value  of  the  thrust  switch-function  magnitude  |cr  [ 
min 

encountered  along  the  trajectory,  considering  only  extrema  of  a and  Ignoring 

roots  and  a is  the  maximum  value  of  |cr|  encountered.  A£  is  designed 
’ max 

to  lie  in  the  range  0 £ A 4 ^ 1,  and,  in  fact,  the  trajectory  is  generally  con- 
sidered to  be  not  in  very  great  proximity  to  a propulsion-time  corner  (See  the. 
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discussion  of  subroutine  CORNER)  when  A£  < .99,  and  only  when  A£  is  of  the 
order  of,  e.g. , .999  or  .9999  should  the  analyst  be  concerned. 

A few  sporadic  pieces  of  information  are  output  on  unit  6.  Specifically, 
the  numbers  of  computation  steps  during  coasting  flight  and  during  thrusting  flight, 
pertaining  to  the  summary  trajectory,  are  printed;  also  output  (on  units  6 and  12) 
is  the  ''switch  count  history",  which  displays  the  number  of  thrust  switch-points 
corresponding  to  each  nominal  trajectory  of  the  iteration  sequence;  finally,  when 
the  non-due-east  launch  phase  is  invoked  (involving  the  optimization  of  the  geo- 
centric departure  asymptote  declination  6),  the  angle  A 6 by  which  the  launch 
hyperbolic  excess  velocity  is  offset  from  the  initial  primer  vector,  which  has 
geocentric  declination  6^,  is  computed  (and  printed): 

A6  = 6^ - 6 , 

when  the  geocentric  right  ascension  of  the  excess  velocity  is  equal  to  that  of  the 
initial  primer  vector,  and 

A 6 = ir  - (6.  + 6 ) if  6 ^ 0 ; 

A A __ 

A 5 = - n - (6^  + 6 ) if  6^  < 0 , 

when  the  geocentric  right  ascension  of  the  excess  velocity  is  180  degrees  from 
that  of  the  initial  primer. 

Messages  and  printouts:  The  iterator  independent-variables  which  are  currently 
turned-on  (active)  are  printed  on  unit  11,  three  per  line  maximum  until  exhausted, 
in  a format  and  units  which  are  entirely  consistent  with  NAMELIST  data-input,  as 
follows  (for  example): 

I 

I 

I 
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XI  = 

X2  = 

9 

X3  = 

» 

X4  = 

X5  = 

X6  = 

9 

XI 0 = 

X13  = 

9 

X15  = 

9 

X21  = 

X41  = 

9 

X42  = 

9 

X43  = 

This  is  followed  by  the  active  iterator  dependent-variable  values,  each  preceded 
by  its  identifying  index,  as  follows  (for  example): 

4 5 

15  21 


The  units  of  these  various  dependent-variable  values  are  as  given  in  the  description 
of  program  inputs. 

The  above  information  is  printed  whenever  subroutine  PRINT  is  called;  the 
following  information  is  printed  only  in  conjunction  with  the  case-summary  trajectory. 

The  sequence  of  values  of  the  number  of  thrust-switches  (off-to-on  or  on-to- 
off)  along  each  nominal  trajectory  of  the  iteration  sequence  is  printed  on  units  6 
and  12  (for  example): 

SWITCH-COUNT  HISTORY  7.7.7.8.8.9.9.9.9.10.9.9.9/ 

in  which  (for  this  example)  the  first  three  trajectories  of  the  iteration  sequence  had 
7 thrust  switch  points,  the  fourth  and  fifth  trajectories  had  8 switch  points,  and  so 
on;  the  last  value  is  followed  by  a slash.  When  all  trajectories  of  an  iteration  se- 
quence have  the  same  number  of  thrust  switch  points,  say  9,  the  printed  message 

reduces  to 

SWITCH-COUNT  HISTORY  ALL  9 


DEPENDENT  VARIABLES 


1 

2 

3 

6 

10 

13 

44 

45 

46 
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The  propulsion-corner  proximity  Ag,  is  written  on  unit  12: 


PROPULSION  CORNER  PROXIMITY  - (Ag)  , MIN  SIGMA  = (gmin) 

where  Ag  and  <7  . are  defined  in  the  discussion.  This  allows  the  analyst  to 
determine  how  nearly  the  iteration  sequence  may  be  "hung"  on  a propulsion-time 
corner.  It  is  not  printed  on  unit  6 because  the  analyst  can  peruse  the  switch- 
function  column  of  the  Extremum  Table  of  Selected  Functions  to  make  a similar 
determination. 

The  total  number  of  computation  steps  during  thrust,  and  the  total  number 
during  coast,  pertaining  to  the  summary  trajectory,  are  printed  on  unit  6: 

THRUST  COMPUTE  STEPS,  COAST  COMPUTE  STEPS 

Selected  summary  information  is  then  printed  on  unit  12,  as  follows: 

RMIN  = ^rmin^,  RMAX  = ^max^ , DECL  = (5)  , TAU  = (r ) 

where  r . and  r are  the  minimum  and  maximum  solar  distances  encountered 
min  max 

by  the  spacecraft  along  the  (case  summary)  trajectory,  in  AU,  6 is  the  geocentric 
launch  excess-velocity  asymptote  declination,  in  degrees,  and  r is  the  total  pro- 
pulsion system  on-time  (i.e.,  the  propulsion  time),  in  days; 

NET  MASS  = ^mnet)  . INHIBITOR  = (X)  . ANGLE  = ^ . POWER=_^re£_ 

where  m is  the  net  spacecraft  mass,  in  kilograms,  X is  the  iterator's  inhibitor 

-4 

(values  greater  than  about  10  imply  there  is  convergence  difficulty),  0 is  the 
travel  angle,  in  degrees,  and  p ^ is  the  reference  power,  in  kilowatts; 

CASE  (n)  COMPLETED  AT  LINE  NO.  (m)  , (BRING  X,  L = : *l2*  ) 

where  n is  the  case  number,  m refers  to  the  m^  printed  line  on  unit  11,  and 
i^  and  i are  the  first  and  last  line-numbers  (corresponding  to  printed  lines  on 
unit  11)  where  the  iterator  independent-variable  values,  corresponding  to  the 
summary  trajectory,  may  be  found.  This  is  very  convenient  if  the  computer  system 
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used  has  the  capability  of  "bringing"  or  fetching  information  from  a specified 
range  of  lines  on  a specified  unit. 

If  nonzero,  the  angle  A 6 by  which  the  launch  hyperbolic  excess  velocity 
is  offset  from  the  initial  primer  vector  is  printed  in  degrees  on  unit  6 : 

LAUNCH  ASYMPTOTE  OFFSET  FROM  PRIMER  = (A6)  DEGREES. 


PRINT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

BX(5,  70) 

U 

ITERAT 

Array  of  iterator  independent-variables 
and  related  parameters,  input  to  the 
program. 

00(70) 

U 

ITER  AT 

Array  of  iterator  independent-variables 
in  units  consistent  with  program  input 
units. 

ABX(70) 

U 

LOGIC4 

Array  of  iterator  independent -variable 
indicators,  which  selects  the  active 
variables. 

ABY(70) 

U 

LOGIC4 

Array  of  iterator  dependent -variable 
indicators  .which  selects  the  active 
variables. 

DEG 

U 

REAL8 

Radians  to  degrees  conversion  factor. 

FXL(70) 

u 

1 

ITERAT 

Array  of  iterator  dependent-variable 
values,  in  program  internal  units. 

NSW 

u 

INTGR4 

The  total  number  of  thrust  switch-points 
along  the  current  trajectory. 

TAU 

u 

REAL8 

Propulsion  time,  T,  in  tau  = AU/EMOS. 

CONY(70) 

u 

ITERAT 

Array  of  iterator  dependent -variable 
conversion  factors  (between  program 
internal  and  external  units). 
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PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

DECL 

U 

REAL8 

Departure  asymptote  declination,  6 , 
in  radians. 

LINE 

su 

INTGR4 

Current  number  of  lines  which  have 
been  printed  on  unit  11  during  the 
current  computer  run. 

NSET  (5) 

u 

INTGR4 

Iteration-sequence  control  array. 

NSWX  (50) 

su 

INTGR4 

Contains  the  thrust-switch-point  history 
(values  of  NSW)  of  the  iteration  sequence. 

QJEX 

u 

LOGIC4 

Detailed  printout  (case  summary) 
indicator. 

RMAX 

u 

REAL8 

Maximum  solar  distance  encountered  by 
the  spacecraft  along  the  trajectory,  r , 

in  AU.  max 

RMIN 

u 

REAL8 

Minimum  solar  distance  encountered  by 
the  spacecraft  along  the  trajectory,  r . , 
in  AU.  min 

ANGLE 

u 

REAL8 

Travel  angle,  0^,  in  radians. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

KOUNT 

u 

INTGR4 

Case  number. 

LDECL 

u 

LOGIC4 

Indicator  for  the  condition  in  which  the 
magnitude  of  the  departure  asymptote 
declination  exceeds  the  parking  orbit 
inclination. 

MAJOR 

u 

INTGR4 

Number  of  nominal  (major)  trajectories 
comprising  the  iteration  sequence. 

NSPEC 

INTGR4 

Number  of  entries  (lines)  in  the  Extre- 
mum Table  of  Selected  Functions. 

ONOFF 

(2,i00) 

u 

EXTREM 

Storage  array  for  thrust  switching 
function,  used  in  conjunction  with  the 
Extremum  Table  of  Selected  Functions.  1 

i 
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PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable  i 

Use 

Common 

Description 

PSIGN 

U 

REAL8 

Coefficient  defining  the  sense  of  the 
launch  hyperbolic  excess  velocity  re- 
lative to  the  initial  primer  vector. 

QDECL 

U 

LOGIC4 

Indicator  that  the  computation  of  the 
departure  asymptote  declination  is 
required  as  part  of  the  optimization 
problem. 

XMASS(7) 

U 

REAL8 

General  mass  array  and  related  para- 
meters. XMASS(6)  is  reference  power, 

p .,  in  watts, 
ref 

DECLAM 

u 

REAL8 

Geocentric  declination  of  the  initial 
primer  vector,  6^ , in  radians. 

FIXPOW 

u 

LOGIC  4 

! 

Indicator  for  the  launch-vehicle- inde- 
pendent mode  of  operation. 

NSTEP1 

u 

INTGR4 

Total  number  of  computation  steps 
associated  with  thrusting  flight,  for  the 
current  trajectory. 

NSTEP2 

u 

INTGR4 

Total  number  of  computation  steps 
associated  with  coasting  flight,  for 
the  current  trajectory. 

PAYLOD 

u 

REAL8 

Net  spacecraft  mass,  m in  kilograms. 

XAMBDA 

u 

REAL8 

The  iterator's  inhibitor,  X . 
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Name: 

Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


PRECEDING  PAGE  BLANK  NOT 

PRINTR 


FILMED 


Ml,  M2,  XLAMDA 


None 


INTGR4,  ITERAT,  ITER2,  LOGIC4,  REAL8 
None 

FINISH,  SOLAR,  TRAJ 


\ 

\ 


Discussion:  Subroutine  PRINTR  produces  a printout  termed  the  Trajectory  Summary. 
The  printout  is  comprised  of  the  trajectory  counters,  the  current  value  of  the  iterator 
inhibitor,  the  values  of  the  independent  and  resulting  dependent  variables  of  the  boundary 
value  problem,  and  selected  mass  and  performance  parameter  values  for  the  associated 
trajectory.  The  frequency  at  which  this  printout  is  produced  is  controlled  by  the  input 
integer  NPRINT.  If  NPRINT  is  odd,  the  summary  will  be  printed  for  the  final  trajectory 
of  the  case;  if  NPRINT  is  within  the  ranges  of  4-7  or  12-15,  then  the  summary  is 
printed  on  every  nominal  trajectory  (i.e. , trajectories  for  which  a partial  derivative 
matrix  is  evaluated);  if  NPRINT  is  input  negative,  then  the  summary  is  printed  for 
every  trajectory  that  is  computed,  including  perturbation  trajectories. 

For  the  printout  of  the  final  trajectory  only,  the  printout  of  independent  vari- 
ables includes  all  70  parameters,  regardless  of  the  number  actually  flagged  as  in- 
dependent variables.  A complete  set  of  70  locations  is  also  printed  for  the  dependent 
variables  although  those  not  flagged  will  be  printed  zero.  Beside  each  value  printed 
will  appear  a title  to  assist  the  analyst  in  identifying  each  parameter.  For  all  other 
occurrences  of  the  printout,  only  those  parameters  actually  flagged  as  independent 
and  dependent  variables  are  printed. 

The  mass  and  performance  parameters  printed  in  the  trajectory  summary  in- 
cludes a history  of  the  thrust  switch  points,  the  reference  power  Prej>  the  total  pro- 
pulsion system  efficiency  T),  the  electric  propulsion  system  burn  time  T , the  energy 
integral  J,  the  ratio  of  propulsion  time  to  mission  duration,  the  average  thrust 

acceleration  a , and  the  mass  components  m , m , m , m , m and  m The 
ave  o ps  pis  net. 
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energy  integral  and  average  acceleration  are  evaluated 

gc  V 


J = 


JL 


l-v 


a = , 

ave  Jl-v 

P 

where  g is  the  reference  thrust  acceleration,  c is  the  jet  exhaust  speed  and  v 

P 

is  the  ratio  of  electric  propulsion  propellant  mass  to  initial  mass. 

For  the  expanded  printout  of  the  final  trajectory  only,  a measure  of  the  pro- 
gress made  by  the  iterator  in  achieving  convergence  is  printed.  The  measure  is  in 
the  form  of  a number  for  each  dependent  variable;  a positive  number  denotes  im- 
provement in  the  end  condition  relative  to  the  first  nominal  trajectory  of  the  case  and 
a negative  number  indicates  that  the  discrepancy  between  actual  and  desired  values 
has  gotten  worse.  The  magnitude  of  the  number  represents  the  order  of  magnitude  of 
change;  i.e. , a value  of  2 would  denote  an  improvement  of  two  orders  of  magnitude. 

A value  is  printed  only  for  those  end  conditions  that  were  not  satisfied  to  the  specified 
tolerance  on  the  first  nominal  trajectory  or  on  the  final  trajectory.  Thus,  this  informa- 
tion will  not  be  printed  when  the  case  converges. 

Messages  and  printouts : Examples  of  the  three  types  of  trajectory  summaries  are 
shown  on  the  following  pages.  Additional  examples  are  shown  in  the  Sample  Problems 
and  Results  section. 
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PRINTR  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common  j 

Description 

0(70) 

U 

ITERAT 

Array  of  iterator  independent-variables, 
in  program  internal  units. 

BY(3,  70) 

u 

ITERAT 

Iterator  dependent  variables  array. 

Ml 

ux 

Counter  of  all  nominal  and  trial  trajectories. 
Does  not  include  perturbation  trajectories. 

M2 

ux 

Counter  of  nominal  trajectories. 

ABX(70) 

u 

LOGIC4 

Master  array  of  iterator  independent- 
variable  indicators. 

ABY(70) 

u 

LOGIC4 

Master  array  of  iterator  dependent- 
variable  indicators. 

j FXL(70) 

u 

ITERAT 

Array  of  iterator  dependent-variable 
values,  in  program  internal  units. 

ISW(50) 

su 

INTGR4 

Stored  values  of  indicator  for  thrust 
phase  or  coast  phase. 

NSW 

su 

INTGR4 

The  total  number  of  thrust  switch-points 
along  the  current  trajectory. 

TAU 

u 

REAL8 

Propulsion  time,  T,  in  tau  = AU/EMOS. 

TSW(50) 

su 

REAL8 

Stored  values  of  switch  times,  t p in  tau. 

CONX(70) 

u 

ITERAT 

Array  of  print  conversion  factors  for 
iterator  independent-variables. 

CONY  (70) 

u 

ITERAT 

Array  of  print  conversion  factors  for 
iterator  dependent -variables. 

FXL1(70) 

u 

ITERAT 

Array  of  dependent  variable  values 
corresponding  to  the  initial  nominal 
trajectory,  eventually  used  in  measuring 
the  progress  of  the  iteration  sequence. 

IOUT 

u 

INTGR4 

Extra-ecliptic  mission  indicator. 
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PRINTR-5 


PRINTR  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

NSET  (5) 

U 

INTGR4 

Iteration-sequence  control  array. 

QJEX 

u 

LOGIC4 

Detailed  printout  indicator. 

QMAX(35) 

u 

ITER  2 

Array  of  upper  allowable  values  for  the 
iterator  dependent-variables. 

QMIN  (35) 

u 

ITER  2 

Array  of  lower  allowable  values  for  the 
iterator  dependent-variables. 

MAJOR 

u 

INTGR4 

Counter  of  the  number  of  nominal 
("major11)  trajectories,  which  have  an 
associated  set  of  neighboring  trajectories, 
generated  in  the  current  iteration 
sequence. 

MINOR 

u 

INTGR4 

Perturbation  trajectory  counter  for 
current  iteration. 

XMASS(7) 

u 

REAL8 

General  mass  array  and  related  para- 
meters. XMASS(7)  is  total  propulsion 
system  efficiency,  77. 

LEGMAX 

u 

INTGR4 

Total  (maximum)  number  of  trajectory- 
segments  comprising  the  trajectory. 

MAJORS 

u 

INTGR4 

Total  number  of  nominal  plus  search 
trajectories  generated  during  the  current 
case. 

N PRINT 

u 

INTGR4 

Printout  amount  selection  indicator. 

PAYLOD 

u 

REAL8 

Net  spacecraft  mass,  m , in  kg. 

net 

XAMBDA 

u 

REAL8 

The  iterator’s  inhibitor,  A . 

XLAMDA 

ux 

Iterator  inhibitor,  A. 
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PRINTR-21 


Name: 


PRIOR 


Calling  Argument:  GO 

Referenced  Sub-programs:  None 

Referenced  Commons:  INTGR4,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  ANSTEP,  RKSTEP 

Discussion:  This  subroutine  is  always  called  just  prior  to  taking  a computation 
step.  When  stepping  forward  along  the  trajectory,  a saving  operation  is  per- 
formed: 

^ saved  = 

Xsaved  = X 

X , = X 

saved 

Tsaved 

This  results  in  the  saving  of  the  trajectory  dependent  variables  x and  their 
derivatives  x,  the  trajectory  independent  variable  >3 , and  the  accumulated 
propulsion  time  T,  at  the  beginning  of  the  current  computation  step.  The  de- 
rivatives x are  time  derivatives  during  coast  phases  and  generalized  deriva- 
tives during  thrust  phases. 

When  iterating  to  isolate  a remarkable  point  along  a trajectory,  using 
the  beginning  of  the  current  computation  step  as  the  saved  referenced  point,  a 

restoration  operation  is  performed: 

• • 

X = X . 

saved 
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PRIOR  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

X(50) 

U 

REAL8 

Array  of  trajectory  dependent  vari- 
ables x corresponding  to  the  current 
time  along  the  trajectory. 

GO 

UX 

Logical  indicator  for  stepping  forward; 
when  true,  perform  saving  operation; 
when  false,  perform  restoration 
operation. 

SX(50) 

S 

REAL8 

Array  of  trajectory  dependent  vari- 
ables xsavefj  corresponding  to  the 
beginning  of  the  current  computation 
step. 

XD(50) 

SU 

REAL8 

» 

Array  of  the  derivatives  x of  the 
trajectory  dependent  variables. 

TAU 

U 

REAL8 

Accumulated  propulsion  time,  r, 
in  1 AU  normalized  units  (tau). 

BETA 

u 

REAL8 

Trajectory  independent  variable,  ft. 

STAU 

s 

REAL8 

Saved  value  of  accumulated  propulsion 
time,  Tgavetj,  in  tau. 

ERODE 

u 

LOGIC4 

Solar  array  radiation  damage  degrada- 
tion indicator. 

SBETA 

s 

REAL8 

Saved  value  of  trajectory  independent 
variable,  0gaved  . 

FIXTHR 

u 

LOGIC4 

Indicator  for  fixed  thrust  cone  angle. 

NPHI20 

u 

INTGR4 

Array  location  value  corresponding  to 
the  current  value  of  the  fixed  thrust 
cone  angle.  Currently,  only  one  value 
for  fixed  thrust  angle  is  allowed  along 
a given  trajectory,  and  NPHI20  is  set 
equal  to  21  in  subroutine  TAP. 
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PRIOR  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

QERODE 

U 

LOGIC4 

Indicator  for  either  the  final  (summary) 
trajectory  of  a given  case  or  solar 
array  radiation  damage  degradation. 

TUDFLG 

u 

LOGIC4 

Indicator  for  two-dimensional  tra- 
jectory in  xy  plane  only. 

PRIOR-3 
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Name: 


PUNCH 


Calling  Argument:  PINT,  TIMX,  PRATIO,  IFLAG,  IPUNCH  for  PUNCH; 

None  for  READER 

Referenced  Sub-programs:  EFM 

Referenced  Commons:  INTGR4,  ITERAT,  LOGIC4,  REAL8 

Entry  Points:  READER 

Referencing  Sub-programs:  FINISH,  SPRINT  for  PUNCH; 

MAIN  for  READER 

Discussion:  Historically,  this  subroutine  experienced  heavy  usage  in  the  period 
1969-1971  for  the  purpose  of  aiding  in  the  publication  of  several  reports  by 
Horsewood  and  Mann  involving  electric  propulsion  performance  analysis;  the  sub- 
routine output,  which  originally  consisted  solely  of  punched  cards  containing  in- 
formation summarizing  optimum  electric  propulsion  trajectories,  was  employed, 
after  editing,  as  input  to  the  SC-4020  electronic  plotter,  the  output  of  which  was 
published.  Since  that  time  period,  the  subroutine  has  rarely  been  used. 

The  subroutine  also  has  the  capability  of  outputting  step-by-step  informa- 
tion at  each  computation  point  along  a trajectory,  in  the  form  of  either  punched 
cards  or  magnetic  tape  (or  any  other  device-specification  in  place  of,  but  similar 
to,  magnetic  tape),  to  be  used  as  input  to  the  ASTEA  Error  Analysis  Computer 
Program  or  for  any  other  purpose.  The  description  of  the  various  quantities  output 
is  found  in  the  External  Variables  Table  below.  The  user  should  feel  free  to  modify 
this  basic  output  routine  and  tailor  it  to  his  particular  requirements,  if  applicable. 

Entry  point  READER  performs  the  function  of  reading-in  cards  (from  the 
card  reader,  unit  5)  containing  parameter  values  for  starting  a trajectory,  i.  e. , 
containing  values  of  the  iterator  independent  variables;  such  cards  are  originally 
generated  during  a prior  program  run,  by  subroutine  PUNCH,  using  the  program 
input  option  MPUNCH  = 1. 

preceding  page  blank  note  nu® 
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PUNCH-1 


Messages  and  printouts:  In  entry  point  READER,  if  less  than  seven  cards  are 
input,  for  the  purpose  of  starting  the  trajectory  when  such  option  is  invoked,  the 
error  message  is  printed: 


INPUT  CARD  # m IS  ABSENT 

where  m indicates  the  first  of  possibly  several  absent  cards  needed  to  comprise 
the  required  seven  cards. 


PUNCH  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

F 

U 

REAL8 

Reference  thrust,  in  newtons. 

R(2) 

U 

REAL8 

Spacecraft  solar  distance  (at  prior  and 
current  computation  point),  in  AU. 

X(50) 

U 

REAL8 

Array  of  trajectory  integrated  variables. 

AE 

u 

REAL8 

Desired  final  extra-ecliptic  eccentricity. 

AN 

u 

REAL8 

Trajectory-integration  exponent  in 
regularization  formula. 

AR 

u 

REAL8 

Desired  final  extra-ecliptic  perihelion 
distance,  in  AU. 

BI 

u 

REALS 

Efficiency  coefficient  b in  equation  for 
efficiency. 

BX(5, 70) 

su 

ITERAT 

Iterator  independent  variable  array. 

Bl 

u 

REAL8 

Launch  vehicle  coefficient  b^,  in  kg. 

B2 

u 

REAL8 

Launch  vehicle  coefficient  b^,  in 
meters/ second. 

B3 

u 

REAL8 

1 

Launch  vehicle  coefficient  b , in  kg. 

DI 

u 

t 

1 REAL8 

Efficiency  coefficient  d in  equation  for 
efficiency,  in  km/sec. 
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PUNCH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

El 

U 

REAL8 

Efficiency  coefficient  e in  equation  for 
efficiency. 

JT 

u 

INTGR4 

Jettison  indicator  jt  for  electric  pro- 
pulsion tankage  prior  to  primary-target 
retro-maneuver. 

00(70) 

u 

ITERAT 

Iterator  independent  variable  array. 

PT 

u 

REAL8 

Power -function  value  at  primary  target 
intercept  time,  (Tq)t. 

XO  (7) 

u 

REAL8 

• 

Spacecraft  initial  state  vector,  Xq)  Xq, 

M , where  X is  in  AU,  X is 
o o o 

in  EMOS,  and  Mq  = 1. 

AAI 

u 

REAL8 

Desired  final  extra-ecliptic  inclination, 
in  degrees. 

CNI 

u 

REAL8 

Inclination  to  ecliptic  of  primary-target 
orbit,  in  degrees. 

DEG 

u 

REAL8 

Radians  to  degrees  conversion  factor. 

ECI 

u 

REAL8 

Eccentricity  of  primary-target  orbit. 

IRK 

u 

INTGR4 

Numerical  integration  option  indicator 
(currently  not  used). 

JPP 

u 

INTGR4 

Jettison  indicator  j for  electric  pro- 

ps 

pulsion  system  prior  to  primary-target 
retro-maneuver. 

OMI 

u 

REAL8 

Ascending  node  angle  (with  respect  to 
vernal  equinox)  of  primary-target  orbit, 
in  degrees. 

RAP 

u 

REAL8 

Apoapse  distance  of  capture  orbit  about 
primary  target,  in  planet  radii. 

SAI 

u 

REAL8 

Semi-major  axis  of  primary-target  orbit, 
in  AU. 
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PUNCH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SOI 

U 

REAL8 

Argument  of  perihelion  of  primary-target 
orbit,  in  degrees. 

TAU 

U 

REAL8 

Electric  propulsion  system  on-time,  T, 
in  tau  (=  AU/EMOS). 

TPI 

U 

REAL8 

Time  from  reference  date  (which  is 
specified  by  MYEAR,  etc. ) to  perihelion 
passage,  for  the  primary  target,  in  days. 

ANGD 

U 

REAL8 

Travel  angle,  0^,  in  degrees. 

ANG1 

u 

REAL8 

Launch  site  latitude,  in  radians. 

ANG2 

u 

REAL8 

Maximum  launch  parking  orbit  inclina- 
tion, in  radians. 

CSTR 

u 

REALS 

Electric  propulsion  system  structural 

factor,  k . 
s 

DECL 

u 

REAL8 

Departure  asymptote  declination,  6,  in 
radians. 

DVEL 

u 

REAL8 

Retro  maneuver  (at  primary  target) 
impulsive  velocity  increment,  in  meters/ 
second. 

FMAX 

u 

REAL8 

Maximum  thrust  along  trajectory,  in 
newtons. 

HOUR 

u 

REAL8 

Hour-of-day  of  reference  date. 

IBAL 

u 

INTGR4 

Ballistic  trajectory  option  indicator. 

IEND 

UE 

INTGR4 

Indicator  for  endpoint  of  trajectory. 

IROT 

u 

INTGR4 

Initial  primer  vector  rotation  indicator. 

MDAY 

u 

INTGR4 

Day-of-month  of  reference  date. 

MODE 

u 

INTGR4 

Power  variation  option  selector. 
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PUNCH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

MOPT 

U 

INTGR4 

Ballistic  trajectory  option  indicator. 

PINT  (I?) 

UX 

Array  of  print-quantities  computed  in 
subroutine  SPRINT. 

PWRM 

U 

REAL8 

Maximum  power  along  trajectory,  in  kw. 

RMAX 

U 

REAL8 

Maximum  solar  distance  along  trajectory, 
in  AU. 

RMIN 

U 

REAL8 

Minimum  solar  distance  along  trajectory, 
in  AU. 

RPER 

U 

REAL8 

Periapse  distance  of  capture  orbit  about 
primary  target,  in  planet  radii. 

TIMX 

UX 

Time  elapsed  since  the  beginning  of 
the  trajectory,  in  days. 

TRIP 

u 

REAL8 

Flight  time,  from  launch  to  the  primary 
target,  in  days. 

VORB 

u 

REAL8 

Speed  at  periapse  of  capture  orbit  about 
primary  target,  in  meters/second. 

CONTM 

u 

REAL8 

Tau  to  days  conversion  factor. 

CTANK 

u 

REAL8 

Electric  propulsion  system  propellant 
tankage  factor,  k^. 

CTRET 

u 

REAL8 

Retro  tankage  factor,  k^,  for  retro 
maneuver  at  the  primary  target. 

ERROR 

u 

] 

LOGIC4 

Program  master  error  indicator. 

IF  LAG 

UX 

Indicator  for  thrusting  or  coasting. 

ISTAR 

u 

INTGR4 

Currently  not  used.  (Indicator  for  star 
selection  in  cone  and  clock  angle  print- 
out. Canopus  is  always  assumed. ) 

757 


PUNCH-5 


PUNCH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

KOUNT 

U 

INTGR4 

Case  number  of  computer  run. 

MONTH 

u 

INTGR4 

Month-of-year  of  reference  date. 

MOPT2 

u 

INTGR4 

Launch  planet  number  and  ephemeris- 
option  indicator. 

MOPT3 

UA 

INTGR4 

Planet-number  of  primary  target. 

MYEAR 

U 

INTGR4 

Year  of  reference  date. 

NTAPE 

u 

INTGR4 

Specifies  the  unit-number  for  the  tra- 
jectory tape. 

STATE  (6) 

u 

REAL8 

Array  containing  the  Cartesian  position 
and  velocity  components  of  the  primary 
target,  in  AU  and  EMOS. 

STEP1 

u 

REAL8 

Thrust-phase  computation  step-size,  Au. 

STEP2 

u 

REAL8 

Coast-phase  computation  step-size,  A/3. 

TBURN 

u 

REAL8 

Retro-maneuver  burn  time  at  primary 
target,  in  seconds. 

THRET 

u 

REAL8 

Retro-stage  thrust  in  retro-maneuver  at 
the  primary  target,  in  pounds. 

VLOSS 

! 

1 

I 

u 

REAL8 

Velocity-loss,  due  to  gravity,  associated 
with  the  retro-maneuver  at  the  primary 
target,  in  meter  s/second. 

XINCL 

u 

REAL8 

Parking  orbit  inclination,  i,  in  degrees. 

XMASS(7) 

u 

REAL8 

Array  of  spacecraft  weights,  in  kilograms, 
and  parameters. 

ALPHA A 

. 

u 

REAL8 

Specific  mass  of  solar  arrays,  ot  , in 
kg/kw.  a 

ALPHAT 

u 

REAL8 

Specific  mass  of  thruster  subsystem,  at, 
in  kg/kw. 
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PUNCH  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

COMANG 

U 

REAL8 

Communication  angle  to  spacecraft  at 
time  of  primary-target  encounter,  in 
degrees. 

COMDIS 

U 

REAL8 

Communication  distance  to  spacecraft 
at  time  of  primary-target  encounter, 
in  AU. 

CONVRG 

U 

LOGIC4 

Iteration-sequence  convergence  indicator. 

DMRETR 

u 

REAL8 

Retro  engine  mass,  in  kilograms. 

EMUODD 

u 

REAL8 

Gravitational  constant  of  the  primary 

target,  inm'Vsec2. 

IPUNCH 

ux 

Indicator  for  punching  trajectory-summary 
cards  or  outputting  step-by-step  trajectory 
information. 

LAUNCH 

u 

INTGR4 

Launch  mode  indicator. 

MBOOST 

u 

INTGR4 

Launch  vehicle  selector. 

MPUNCH 

u 

INTGR4 

Punched-card  and  trajectory-tape 
generation  control  indicator. 

MTMASS 

u 

INTGR4 

Mission-type  selector  pertaining  to  the 
primary  target. 

PAYLOD 

u 

REAL8 

Net  spacecraft  mass,  m kilograms. 

POWFIX 

u 

REAL8 

Launch-vehicle-independent  trajectory 
option  indicator,  in  which  the  value  of 
POWFIX  is  the  spacecraft's  reference 
power  in  kilowatts. 

PRATIO 

ux 

Power  ratio,  qy. 

QTMASS(5) 

u 

REAL8 

Array  of  propulsion  parameters,  as 
described  in  RETINJ. 

RAD ODD 

u 

REAL8 

Radius  of  primary  target,  in  meters. 
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PUNCH  EXTERNAL  VARIABLES'  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SPIRET 

U 

REAL8 

Retro-stage  specific  impulse  pertaining 
to  the  retro-maneuver  at  the  primary 
target,  in  seconds. 

TDATEX 

U 

REAL8 

Reference  date  expressed  as  Julian  date 
less  2400000. 

TDATE1 

su 

REAL8 

Launch  date  expressed  as  Julian  date 
less  2400000. 

I 

I 

I 
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Name: 


Q PRINT 


Calling  Argument: 

Referenced  Sub-programs: 

Referenced  Commons: 

Entry  Points: 

Referencing  Sub-programs: 

Discussion:  Subroutine  QPRINT  performs  the  printing  of  the  iterator  parameters 
and  the  performance  summary  page.  The  calling  argument  IPRINT  assumes  a value 
in  the  range  1-5,  and  the  particular  value  on  entry  determines  what  information  is  to 
be  printed.  Calls  with  IPRINT  equal  to  1,  2,  3 or  4 are  made  from  Q START  and 
result  in  the  printing  of  the  iterator  parameters.  When  IPRINT  = 1,  the  page  heading 
and  independent  variables  table  heading  and  column  titles  are  printed.  Calls  with 
IPRINT  = 2 are  made  in  a DO  loop  in  QSTART,  with  one  call  being  made  for  each 
parameter  identified  as  an  independent  variable  of  the  boundary  value  problem.  On 
each  call  there  is  printed  the  current  value  of  a counter  of  independent  variables,  the 
index  number  which  identifies  the  independent  variable  (equal  to  the  i of  the  input  in- 
dependent variable  arrays  Xi),  the  initial  value  of  the  variable,  the  maximum  step 
size  permitted  for  the  associated  variable  on  one  iteration,  the  perturbation  step  size 
used  for  generating  partial  derivatives  and  a weighting  parameter.  When  IPRINT  = 3, 
the  dependent  variables  table  heading  and  column  titles  are  printed.  Calls  with 
IPRINT  = 4 are  made  iteratively  in  QSTART,  with  one  call  being  made  for  each  para- 
meter identified  as  a dependent  variable  of  the  boundary  value  problem.  Each  of 
these  calls  results  in  the  printing  of  the  current  value  of  a counter  of  dependent  vari- 
ables, the  index  number  which  identifies  the  dependent  variable  (equal  to  the  i of 
the  input  dependent  variable  arrays  Yi),  the  desired  value  of  the  dependent  variable, 
and  the  tolerance  to  which  the  dependent  variable  must  be  satisfied  for  convergence. 

A call  with  IPRINT  = 5 is  made  from  FINISH  to  achieve  the  printing  of  the 
performance  summary.  This  summary  attempts  to  capsulize  on  a single  page  most 


IPRINT 

BOOSTR,  EFMPRT,  MORE,  PDATE,  SOLAR,  VCR  OSS, 
VMAG 

INTGR4,  ITERAT,  LOGIC4,  REAL8,  SOLSYS 
None 

FINISH,  QSTART 
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QPRINT-l 


of  the  important  performance,  spacecraft  and  trajectory  parameters  that  are  needed 
to  analyze  a given  optimum  solution.  The  performance  summary  is  printed  for  the 
final  trajectory  of  a case  whether  or  not  the  case  converged.  The  first  line  of  the 
summary  contains  the  case  number,  a message  as  to  whether  the  case  converged, 
and  the  page  title.  This  is  followed  with  a one-line  description  of  the  mission  giving 
such  information  as  mission  type  (e.g. , flyby,  rendezvous,  orbiter,  out  of  the 
ecliptic,  etc.),  the  names  of  the  primary  celestial  bodies  involved,  and  other  useful 
information  that  is  dependent  on  the  specific  mission.  For  example,  for  cometary 
or  asteroid  missions,  the  time  of  arrival  relative  to  perihelion  passage  is  given. 

For  extra  ecliptic  missions,  the  final  ecliptic  inclination  is  printed  as  computed 
from  the  formula 

i = cos  ^ { [(RxR)/  |R  xR  | J * k] , 

» 

where  R and  R are  the  final  spacecraft  position  and  velocity  vectors  and  k is  a 
unit  vector  along  the  ecliptic  North  Pole.  The  next  iine  contains  the  name  of  the 
launch  vehicle  specified  and  lists  the  three  coefficients  b b and  b for  that  vehicle 

X L*  O 

which  are  used  in  the  computation  of  initial  spacecraft  mass 

m = b e-'VS'.b  . 
o 1 3 

If  the  launch  vehicle  independent  mode  is  specified,  then  this  line  is  replaced  with  a 
simple  message  to  that  effect.  The  next  two  lines  contain  the  launch  date  and  the 
primary  target  arrival  date,  expressed  both  in  the  form  of  calendar  dates  and  Julian 
dates  (with  leading  24  omitted).  Also  printed  here  is  the  overall  flight  time  com- 
puted as  the  difference  of  these  two  dates.  For  missions  not  involving  the  use  of  the 
analytic  ephemeris,  only  the  flight  time  is  printed. 

The  performance  summary  page  continues  with  several  sections  of  print,  each 

headed  with  a descriptive  title  and  containing  several  closely  related  variables.  The 

first  of  these  contains  input  electric  propulsion  system  parameters  and  includes  the 

specific  masses  of  the  solar  array  and  thruster  subsystem,  a and  a , respectively, 

St1 
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the  propellant  tankage  factor  kt  and  structure  factor  kg,  and  the  efficiency  law 
coefficients  b,  d and  e used  in  the  formula  for  the  efficiency,  rj 


. 2„  2 

77  = b c / (c  ■ 


dI 2) 


+ e 


with  c being  the  jet  exhaust  speed.  The  second  section  contains  the  spacecraft  mass 

breakdown,  including  the  initial  mass  mQ,  the  propulsion  system  mass  mpg,  the 

propellant  mass  m , the  tankage  mass  m^,  the  structure  mass  m^,  &nd  the  net 

mass  m . It  does  not  include  the  retro  stage  mass,  if  any,  because  that  is  con- 
net 

tained  in  a subsequent  section.  All  of  these  mass  components  are  evaluated  in  other 

subroutines  and  accessed  in  QPRINT  through  the  appropriate  common.  The  next 

section  contains  electric  propulsion  system  performance  parameters,  including  the 

reference  power  p , housekeeping  power  ph>  power  deliverable  to  the  thruster 

subsystem  at  target  arrival  p^,  reference  thrust  level  f^j,  reference  thrust 

acceleration  g,  specific  impulse  I , total  propulsion  system  efficiency  T)r  and 

sp 

the  input  characteristic  degradation  time  Tj.  The  equations  for  those  variables  un- 
available in  any  common  are: 


ph=PrefAp 


Pt  = qy(tf)  p 


f = gm 
ref  o 


ref 


I = c/9.80665 
sp 

where  Ap  is  the  input  ratio  of  housekeeping  to  reference  power,  7(tf)  is  the  power 
ratio  factor  evaluated  at  the  final  time,  and  c is  the  jet  exhaust  speed  expressed  in 
units  of  m/sec.  The  next  section  contains  extreme  trajectory  and  performance  con- 
ditions such  as  the  maximum  and  minimum  solar  distances  encountered  during  the 
flight,  the  maximum  power  and  thrust  developed  over  the  trajectory,  the  total  pro- 
pulsion system  operating  time,  the  degradation  time  s,  and  the  accumulated  travel 
angle,  0t.  Prior  to  printing  the  next  section,  a message  is  printed,  for  those  missions 
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utilizing  a retro  stage,  whether  the  propellant  tankage  and/or  electric  propulsion 
system  are  jettisoned  prior  to  the  retro  maneuver.  The  next  section  contains  the 
departure  and  arrival  conditions  including  the  geocentric  declination  of  the  launch 
asymptote,  the  launch  parking  orbit  inclination  relative  to  the  equator,  the  launch 
excess  speed,  the  launch  energy  c , (equal  to  the  square  of  the  launch  excess  speed), 

O 

the  arrival  excess  speed  at  the  primary  target,  and  the  arrival  energy  c . For  out- 
of-the  ecliptic  missions  the  arrival  excess  speed  printed  is  zero.  For  all  missions 
employing  a retro  maneuver  the  arrival  excess  speed  printed  is  the  value  of  the  in- 
dependent parameter  X14  (with  a conversion  of  units).  For  all  other  missions  the 
value  printed  is  the  magnitude  of  the  vector  difference  between  the  spacecraft  velocity 
and  the  velocity  of  the  primary  target. 

For  missions  that  require  a retro  maneuver,  a section  is  printed  which 

summarizes  the  important  performance  and  spacecraft  parameters  involved  in  the 

maneuver.  The  parameters  printed  include  the  retro  stage  structure  and  propellant 

masses,  the  input  thrust  level  f and  specific  impulse  I of  the  retro  stage,  the 

r sPr 

bum  time  t^  of  the  maneuver,  the  periapse  and  apoapse  distances  of  the  capture 
orbit,  the  orbital  speed  at  the  point  of  insertion,  the  incremental  (impulsive)  speed 
imparted  by  the  maneuver,  and  the  additional  incremental  velocity  required  due  to 
finite  thrust  effects.  The  burn  time  is  evaluated  using  the  formula 


where  m is  the  retro  stage  propellant, 
rp 

If  the  spiral  capture  maneuver  is  requested,  another  section  of  performance 
data  is  printed,  including  the  periapse  and  apoapse  distances  of  the  capture  orbit, 
the  thrust  level  and  specific  impulse  of  the  spiral  maneuver,  the  total  mission  dura- 
tion including  the  time  of  the  spiral  maneuver,  and  the  additional  propellant  required 
during  the  spiral  maneuver. 

Finally,  certain  options  invoked  result  in  the  printing  of  additional  informa- 
tion on  the  performance  summary  page.  If  the  fixed  thrust  angle  option  is  flagged, 


772 


the  value  of  the  angle  used  for  the  trajectory  being  summarized  is  printed.  For 
multi— target  missions,  the  inclusion  of  sample  pickup  or  mass  drops  at  intermediate 
targets  results  in  printing  of  the  amount  of  mass  retrieved  and/or  deposited  at  each 
intermediate  target. 

Prior  to  exiting  Q PRINT,  a call  is  made  to  subroutine  MORE  which  will 
perform  the  ballistic  swingby  continuation  analysis,  if  flagged. 

Messages  and  printouts:  Typical  examples  of  the  iterator  parameters  and  the  per- 
formance summary  pages  are  shown  on  the  following  pages.  Additional  examples 
are  shown  in  the  section  of  Sample  Problems  and  Results. 
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Q PRINT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

0(70) 

U 

ITERAT 

Array  of  iterator  independent- variables, 
in  program  internal  units. 

R(2) 

U 

REAL8 

l 

Spacecraft  solar  distances  (at  prior  and 
current  computation  point),  in  AU. 

X(50) 

SUA 

REAL8 

Array  of  trajectory  integrated  variables. 

BI 

U 

REAL8 

Efficiency  coefficient  b in  equation  for 
efficiency. 

BX(5, 70) 

U 

ITERAT 

Iterator  independent  variable  array. 

BY(3,  70) 

u 

ITERAT 

Iterator  dependent  variable  array. 

Bl 

SUA 

REAL8 

Launch  vehicle  coefficient  b^,  in  kg. 

B2 

SUA 

REAL8 

Launch  vehicle  coefficient  b , in 
meters/ second. 

B3 

SUA 

REAL8 

Launch  vehicle  coefficient  b , in  kg. 

O 

C3 

SU 

REAL8 

Launch  energy,  equal  to  the  square  of 
the  launch  excess  speed. 

C4 

SU 

REAL8 

Energy  at  arrival  of  primary  target, 
equal  to  the  square  of  the  arrival  excess 
speed. 

DI 

U 

REAL8 

Efficiency  coefficient  d in  equation  for 
efficiency,  inkm/sec. 

El 

U 

REAL8 

Efficiency  coefficient  e in  equation  for 
efficiency. 

JT 

U 

INTGR4 

Jettison  indicator  jt,  for  electric  pro- 
pulsion tankage  prior  to  primary-target 
retro-maneuver. 

00(70) 

SU 

ITERAT 

Array  of  iterator  Independent  variables 
in  program  external  units. 
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Q PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

PT 

SU 

REAL8 

Power  function  value  at  primary  target 
intercept  time,  (Tq^. 

RT 

S 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 

X0(7) 

SU 

REAL8 

• 

Spacecraft  initial  state  vector,  x^,  xQ, 

V , where  x is  in  AU,  xn  is  in 
o o ° 

EMOS,  and  VQ  = 1 is  set  elsewhere. 

APL(2,  70) 

U 

SOLSYS 

Array  of  planet  names. 

ABB 

s 

REAL8 

Arrival  date  in  hours  from  input 
reference  date. 

DEG 

u 

REAL8 

Conversion  factor  between  radians  and 
degrees ; number  of  degrees  in  one 
radian. 

DEP 

s 

REAL8 

Launch  date  in  hours  from  input  reference 
date. 

FFF 

SU 

REAL8 

Reference  thrust  level,  f c,  in  newtons. 

ret 

JPP 

u 

INTGR4 

Jettison  indicator  jpg  for  electric  pro- 
pulsion system  prior  to  primary-target 
retro-maneuver . 

LXX 

u 

INTGR4 

The  number  of  (active)  iterator  inde- 
pendent variables. 

MXX 

u 

INTGR4 

Value  of  second  subscript  of  BX  array 
associated  with  current  independent 
variable  being  analyzed. 

NPR(4) 

u 

INTGR4 

Printout  control  vector. 

RAP 

u 

REAL8 

i 

Apoapse  distance  of  capture  orbit  about 
primary  target,  in  planet  radii. 

SAI 

u 

REAL8 

Semi-major  axis  of  primary-target 
orbit,  in  AU. 
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TAU  U REAL8  Accumulated  propulsion  time,  T,  in 

1 AU  normalized  units  (tau). 

TPI  U REAL8  Time  from  reference  date  (which  is 

specified  by  MYEAR,  etc.)  to  perihelion 
passage,  for  the  primary  target,  in 
days. 

XSP  SU  REAL8  Specific  impulse  of  electric  propulsion 

system,  in  seconds. 

ANGD  SU  REAL8  Travel  angle,  0^,  in  degrees. 

ANG1  U REAL8  Launch  site  latitude,  in  radians. 

ANG2  U REAL8  Maximum  launch  parking  orbit  inclina- 

tion, in  radians. 

CSTR  U REAL8  Electric  propulsion  system  structural  • 

factor,  k . 
s 

DECL  U REAL8  Departure  asymptote  declination  6,  in 

radians. 

DPOW  U REAL8  Ratio  of  housekeeping  power  to  reference 

power,  Ph/Pref  = Ap- 

DVEL  U REAL8  Retro  maneuver  (at  primary  target)  im- 

pulsive velocity  increment,  in  meters/ 
second. 

FMAX  SU  REAL8  Maximum  thrust  along  trajectory,  in 

newtons. 

MONA  SUA  INTGR4  Calendar  month  of  the  date  of  arrival  at 

v primary  target. 

MOND  SUA  INTGR4  Calendar  month  of  the  launch  date. 


MPOW 


U 


INTGR4 


Maximum  or  optimum  power  indicator 
during  solar  panel  degradation  option. 


Q PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common  j 

Description 

NSET  (5) 

U 

i 

INTGR4 

Iteration-sequence  control  array. 

PMAX 

U 

REAL8 

' Maximum  value  of  power  ratio,  (Qy)max» 
encountered  along  the  trajectory. 

POWR 

u 

REAL8 

Power  ratio,  yq. 

PWRM 

su 

REAL8 

Maximum  power  along  trajectory,  in 
kw. 

RMAX 

u 

REAL8 

Maximum  solar  distance  along  tra- 
jectory, in  AU. 

RMIN 

u 

REAL8 

Minimum  solar  distance  along  tra- 
jectory, in  AU. 

RPER 

u 

REAL8 

Periapse  distance  of  capture  orbit 
about  primary  target,  in  planet  radii. 

TOFF(20) 

u 

REAL8 

Array  of  times,  from  the  start  of  the 
trajectory,  at  which  imposed  coast  phases 
are  to  begin,  in  days. 

TRIP 

su 

REAL8 

Flight  time,  from  launch  to  the  primary 
target,  in  days. 

VIMP 

u 

REAL8 

Launch  hyperbolic  excess  speed, 
in  EMOS. 

VORB 

u 

REAL8 

Speed  at  periapse  of  capture  orbit  about 
primary  target,  in  meter  s/second. 

V00D(3) 

u 

REAL8 

Launch  hyperbolic  excess  velocity,  V , 
in  AU/tau. 

XINT(50,5) 

SUA 

REAL8 

Saved  trajectory  dependent-variable  values 
at  arrival  at  the  intermediate  targets. 

XJLA 

su 

REAL8 

Julian  date  of  arrival  at  primary  target, 
less  2400000. 

XJLD 

su 

REAL8 

Julian  date  of  launch,  less  2400000. 
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Q PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ANGLE 

U 

REAL8 

Travel  angle,  6 in  radians. 

BRAKE 

u 

LOGIC4 

Logical  flag  indicating  if  there  is  a 
high-thrust  retro  maneuver  at  the 
primary  target. 

CONSP 

u 

REAL8 

Speed  conversion  factor,  from  AU/tau 
to  meters/second. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

CTANK 

u 

REAL8 

Electric  propulsion  system  propellant 

tankage  factor,  k . 

t n-1 

DROPS 

u 

REAL8 

Sum  of  drop-mass  factors  ) k , 

L drop i 

i=l 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

ERROR 

U' 

LOGIC4 

Program  master  error  indicator. 

FLYBY 

u 

LOGIC4 

Indicator  that  maneuver  at  primary 
target  is  flyby. 

HOURA 

SUA 

REAL8 

Hour  of  the  day  of  arrival  at  the  primary 
target. 

HOURD 

SUA 

REAL8 

Hour  of  the  day  of  launch. 

KOUNT 

u 

INTGR4 

Case  number  of  computer  run. 

LOOSE 

! u 

! 

LOGIC4 

I 

Indicates  that  the  initial  heliocentric 
spacecraft  velocity  is  included  in  the 
(active)  iterator  independent  variables. 

MDAYA 

SUA 

INTGR4 

Day  of  the  month  of  arrival  at  the  pri- 
mary target. 

MDAYD 

SUA 

INTGR4 

Day  of  the  month  of  launch. 

MOPTX(5) 

SUA 

INTGR4 

The  target-numbers  of  the  successive 
intermediate  targets. 
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Q PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

MOPT2 

SUA 

INTGR4 

Launch  planet  number. 

MOPT3 

SUA 

INTGR4 

Planet-number  of  primary  target. 

QDECL 

U 

LOGIC  4 

Non-coplanar  launch  maneuver  indicator. 

n-1 

SAMPS 

U 

REAL8 

Sum  of  sample-mass  factors  ) k . 

i—j  samp  l 

i=l 

SEFMA(7) 

SUA 

REAL8 

Array  containing  position  and  velocity  of 
launch  planet  at  launch  time,  Pq  and  PQ, 
in  AU  and  EMOS,  respectively. 

SEFMB(7) 

SUA 

REAL8 

Array  containing  position  and  velocity  of 

primary  target  at  time  of  target  intercept , 

P , P , in  AU  and  EMOS,  respectively, 
n’  n 

TBURN 

SU 

REAL8 

Retro- maneuver  burn  time  at  primary 
target,  in.  seconds. 

THRET 

U 

REAL8 

Retro-stage  thrust  in  retro-maneuver 
at  the  primary  target,  in  pounds. 

THSPY 

U 

REAL8 

Spiral-stage  thrust,  in  pounds. 

VLOSS 

U 

REAL8 

Velocity-loss,  due  to  gravity,  associated 
with  the  retro-maneuver  at  the  primary 
target,  in  meters/second. 

XINCL 

u 

REAL8 

Parking  orbit  inclination,  i,  in  degrees. 

XMASS(7) 

SU 

REAL8 

Array  of  spacecraft  weights,  in  kilo- 
grams, and  parameters. 

XMSPY 

u 

REAL8 

Spiral  additional  propellant,  in 

kilograms. 

XTINT (6,  5) 

SUA 

REAL8 

Positions  and  velocities  of  intermediate 
targets  at  times  of  intercept,  P and  P ., 
in  AU  and  EMOS. 

AL^HAA 

u 

REAL8 

Specific  mass  of  solar  arrays,  in 

kg/kw. 
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QPRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Var  iable 

Use 

Common 

Description 

ALPHAT 

U 

REAL8 

Specific  mass  of  thruster  subsystem, 
at,  in  kg/kw. 

CONVRG 

U 

LOGIC4 

Iteration-sequence  convergence  indicator. 

FIXPOW 

u 

LOGIC4 

Indicator  for  the  launch-vehicle-inde- 
pendent mode  of  operation. 

FEXTHR 

u 

LOGIC4 

Indicator  for  fixed  thrust-angle. 

IPRINT 

ux 

Calling  argument  defining  the  specific 
print  desired. 

LEGMAX 

u 

INTGR4 

Total  (maximum)  number  of  trajectory- 
segments  comprising  the  trajectory. 

MBOOST 

SUA 

INTGR4 

Launch  vehicle  selector. 

MTMASS 

u 

INTGR4 

Mission-type  selector  pertaining  to  the 
primary  target. 

M YEAR A 

SUA 

INTGR4 

Year  of  arrival  at  the  primary  target. 

MYEARD 

SUA 

INTGR4 

Year  of  launch. 

OUTECL 

u 

LOGIC4 

Extra-ecliptic  mission  indicator. 

PAYLOD 

u 

REAL8 

Net  spacecraft  mass,  m , in  kg. 

net 

PLANET 

u 

LOGIC4 

Ephemer is -option  indicator. 

QTMASS(5) 

u 

REAL8 

Array  of  mass-related  parameters,  as 
described  in  subroutine  RETINJ. 

SPIRAL 

u 

LOGIC4 

Indicator  for  electric  propulsion  spiral 
capture  maneuver  at  the  primary  target. 

SPIRET 

u 

REAL8 

Retro-stage  specific  impulse  pertaining 
to  the  retro-maneuver  at  the  primary 
target,  in  seconds. 

SPISPY 

u 

REAL8 

Spiral-stage  specific  impulse,  in  seconds. 

Q PRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


T ■ 

Variable 

Use 

Common 

Description 

TCOAST 

(20) 

U 

REAL8 

Array  of  times  representing  the  durations 
of  the  coast-phases  associated  with  the 
start  times  in  TOFF,  in  days. 

TDATEX 

U 

REAL8 

Reference  Julian  date,  less  2400000,  de- 
fined bj'  program  input  quantity  MYEAR, 
etc. 

TDATE1 

SUA 

REAL8 

Launch  Julian  date,  less  2400000. 

TDATE2 

i 

j 

SUA 

REAL8 

Julian  date  at  time  of  primary-target 
intercept,  less  2400000. 

TIMSPY 

U 

REAL8 

Spiral  additional  time.  At,  in  days. 

TPOWER 

U 

REAL8 

Solar-cell  degradation  characteristic- 
time, in  days. 
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Q START 
MSTART 

AEINWT,  BOOSTR,  DAT  El,  EFM,  ETAINT,  Q PRINT , 
SETUP,  SOLINT,  TRJINT,  TWINKL 

INTGR4,  ITERAT,  ITER2,  LOGIC4,  REAL8,  SOLSYS 

None 

MAIN 

Discussion-.  Subroutine  QSTART  performs  most  of  the  case  initialization  required  to 
execute  the  program.  It  is  called  a total  of  five  times  from  the  MAIN  program,  each 
time  with  a different  value  of  the  calling  argument  MSTART.  On  each  call,  a different 
portion  of  the  case  initialization  is  accomplished. 

The  first  call  to  QSTART  is  performed  prior  to  the  reading  of  any  case  inputs. 
The  purpose  is  to  position  the  output  tape  on  which  the  trajectory  is  written  for  the 
ASTEA  program,  if  requested.  Additionally,  the  variables  LCOUNT  and  QJEX  are 
Initialized.  On  the  first  case  only,  a page  is  ejected  on  the  printer  file  (unit  6) 
and  a heading  is  written  for  one  of  the  remote  terminal  output  files  (unit  12). 

The  second  call  to  QSTART  is  performed  after  case  inputs  have  been  read 
and  serves  many  functions,  as  follows: 

(1)  scales,  on  option,  the  initial  values  of  all  adjoint  variables  such  that 
the  initial  value  of  the  mass  ratio  adjoint  variable  is  unity; 

(2)  defines  the  number  of  trajectory  legs  and,  for  multiple  target  missions, 
stores  the  orbital  elements  of  the  Intermediate  targets  in  selected  arrays; 

(3)  on  the  basis  of  the  numerical  values  of  various  input  option  indicators, 
defines  logical  flags  which  are  used  for  testing  throughout  the  program 
for  the  following  options:  launch  vehicle  independent  mode,  fixed  thrust 
angle,  launch  asymptote  declination  effects.  Earth  orbit  departure  mis- 
sion with  finite  high  thrust,  type  of  end  conditions  (extra  ecliptic,  flyby, 
capture,  rendezvous,  etc.),  and  solar  array  degradation; 


Name: 

Calling  Arguments: 
Referenced  Sub-programs: 

Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 
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(4)  initializes  for  the  high  thrust  Earth  departure  mission,  if  that  mission 
is  selected; 

(5)  initializes  for  the  all  ballistic  mission,  if  selected  by  input  option;  and 

(6)  initializes  for  the  extra  ecliptic  mission,  if  selected. 

On  the  third  call  to  QSTART,  an  array  of  print  flags  is  defined.  On  the  fourth 
call,  the  positions  and  velocities  of  the  launch  body  at  launch  and  the  target  body  at 
arrival  are  evaluated  and  stored  in  arrays.  Additionally,  the  initial  primer  vector 
and  its  derivative  are  rotated  about  the  z-axis  through  an  angle  equal  to  the  difference 
in  initial  longitude  on  the  current  and  previous  cases.  Finally,  the  reference  thrust 
acceleration,  jet  exhaust  speed  and  mission  duration  are  converted  to  internal  units 
and  stored. 

The  primary  purpose  of  the  final  call  is  to  initialize  arrays  used  by  the  iterator 
and  to  define  counters.  Before  exiting,  however,  calls  are  made  to  subroutines  SETUP, 
BOOSTR,  ETAINT,  TWINKL  and  TRJINT  to  complete  the  initialization  required  for  the 
case. 

Messages  and  printout:  On  the  first  call,  the  following  heading  is  written  on  unit  12: 

RUN  SUMMARY. 

On  the  second  call,  if  the  number  of  trajectory  legs  specified  through  the 
MOPTX  array  exceeds  the  limit  of  four,  the  following  message  is  written: 

INPUT  ERROR.  HILTOP  CURRENTLY  LIMITED  TO  FOUR  TRAJECTORY  SEGMENTS. 

On  the  third  call,  the  following  heading  is  written  on  unit  11: 

CASE  (14) 

where  the  parenthesized  term  defines  the  format  of  the  case  number. 

On  the  fourth  call,  a check  is  made  to  see  if  both  imposed  coast  phases  and 
a high  thrust  deep  space  burn  are  invoked  by  input  option.  Since  this  combina- 
tion is  not  permitted,  the  following  message  is  written: 

FORCED  COASTING  BYPASSED  DURING  *TDV*  OPTION. 
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Also,  a maximum  of  three  legs  is  permitted  with  the  deep  space  burn  option.  If 
this  limit  is  exceeded,  there  results  the  message: 

THIRD  INTERMEDIATE  TARGET  NOT  ALLOWED  DURING  *TDV*  OPTION. 

On  the  final  call  a check  is  made  for  a zero  fixed  cone  angle  that  is  flagged 
as  an  independent  variable.  If  one  is  found,  the  following  message  is  printed: 

THRUST  ANGLE  JI3]_  IS  ZERO.  BX  AND  BY  TRIGGERS  (£2^  SET  TO  ZERO. 

Also,  if  a perturbation  step  size  for  an  independent  variable  is  inadvertently  input 
zero,  the  following  message  appears: 

PERTURBATION  STEP  SIZE  IS  INPUT  ZERO.  BY  (12)  CORRECTED  INTERNALLY. 


QSTART  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common  j 

f 

Description 

B(35) 

S 

ITER2 

Array  of  (active)  iterator  independent- 
variables. 

0(70) 

s 

ITERAT 

Array  of  iterator  independent  variables, 
in  program  internal  units. 

X(50) 

s 

REAL8 

Array  of  trajectory  integrated  variables. 

AE 

u 

REAL8 

Desired  final  extra-ecliptic  eccentricity. 

AI 

su 

REAL8 

Desired  final  extra-ecliptic  inclination, 
i^,  in  radians. 

AR 

1 

u 

REAL8 

Desired  final  extra-ecliptic  perihelion 
distance  in  AU. 

AV 

s 

REAL8 

Desired  final  spacecraft  speed,  vf,  in 
EMOS. 

BI 

SUA 

REAL8 

Efficiency  coefficient  b in  equation  for 
efficiency. 

BS(35) 

s 

ITER2 

Array  of  maximum  step-sizes  for  the 
iterator  independent-variables. 
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QSTART  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BW(35) 

S 

ITER2 

Array  of  independent  variable  weighting 
factors,  corresponding  to  program  input 
quantities  Xi(5). 

BX(5,  70) 

su 

ITERAT 

Iterator  independent  variable  array. 

BY (3,  70) 

su 

ITERAT 

Iterator  dependent  variable  array. 

B1 

SUA 

REAL8 

Launch  vehicle  coefficient,  b^,  in  kg. 

B2 

SUA 

REAL8 

Launch  vehicle  coefficient  b in 
meters/second.  4 

B3 

SUA 

REAL8 

Launch  vehicle  coefficient  b , in  kg. 

O 

Cl 

S 

REAL8 

Cos  i^. 

DI 

SUA 

! REAL8 

Efficiency  coefficient  d in  equation  for 
efficiency,  in  km/sec. 

El 

SUA 

I REAL8 

Efficiency  coefficient  e in  equation  for 
efficiency. 

FT 

S 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

GM(70) 

u 

SOLSYS 

Array  of  planetary  gravitational  constants, 
in  mVsec2. 

LL(70) 

s 

INTGR4 

Index  set  of  active  iterator  independent 
variables. 

MM  (70) 

s 

INTGR4 

Index  set  of  active  dependent  variables. 

SI 

s 

REAL8 

Sin  if. 

SX(50) 

s 

REAL8 

Array  of  trajectory  integrated  variables 
corresponding  to  the  start  of  the  current 
computation  step. 

VJ 

s 

REAL8 

I 

Jet  exhaust  speed,  c,  in  EMOS. 
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Q START  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

XD(50) 

S 

REAL8 

Array  of  trajectory  dependent  variable 
derivatives,  corresponding  to  X(i). 

X0  (7) 

su 

REAL8 

Spacecraft  initial  state  vector,  xq,  xq) 
vQ  , where  xQ  is  in  AU,  xq  is  in  EMOS, 

and  V =1. 
o 

AAI 

u i 

REAL8 

Desired  final  extra-ecliptic  inclination, 
in  degrees. 

ABX(70) 

s 

LOGIC4 

Master  array  of  iterator  independent 
variable  logical  indicators. 

ABY(70) 

s 

LOGIC4 

Master  array  of  iterator  dependent 
variable  logical  indicators. 

BBB(35) 

s 

ITER  2 

Array  of  iterator  independent-variable 
perturbation  step-sizes. 

CNI 

SUA 

REAL8 

Inclination  to  ecliptic  of  primary-target 

orbit,  in  degrees. 

i 

DEG 

S 

REAL8 

| 

Radians  to  degrees  conversion  factor. 

ECI 

SUA 

REAL8 

Eccentricity  of  primary-target  orbit. 

ETH(3) 

S 

REAL8 

Thrust  unit  vector. 

FXL(70) 

S 

ITER  AT 

Array  of  iterator  dependent-variable 
values,  in  program  internal  units. 

GAP 

U 

REAL8 

Propulsion-corner  proximity  tolerance- 
interval. 

IRL 

U 

INTGR4 

Primer-origin-proximity  step-size- 
control  indicator. 

LXX 

SU 

INTGR4 

The  number  of  (active)  iterator  indepen- 
dent-variables. 
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START  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 


Use  Common 


Description 


Value  of  second  subscript  of  BX  array 
associated  with  current  independent 
variable  being  analyzed. 

Printout  control  vector. 

Ascending  node  angle  (with  respect  to 
vernal  equinox)  of  primary-target 
orbit,  in  degrees. 

Logical  flag  indicating  whether  formatted 
table  of  active  iterator  parameters  is  to 
be  printed  for  the  current  case. 

Semi-major  axis  of  primary-target  orbit, 
in  AU. 

Argument  of  perihelion  of  primary-target 
orbit,  in  degrees. 

Time  of  deep  space  burn,  in  days. 

Time  from  reference  date  to  perihelion 
passage  of  primary  target,  in  days. 

Spacecraft  spin-axis  unit  vector  (not 
used  at  present). 

Inclinations  to  ecliptic  of  intermediate- 
target  orbits,  in  degrees. 

Array  of  print  conversion  factors  for 
iterator  independent-variables. 

Array  of  print  conversion  factors  for 
iterator  dependent  variables. 

Eccentricities  of  intermediate  target 
orbits. 


Thrust  unit-vector  time-derivative,  et, 
in  tau”V 
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QSTART  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

use  j 

Common 

Description 

HOUR 

j 

SUA 

REAL8 

Hour-of-day  of  reference  date. 

IBAL 

u 

INTGR4 

Ballistic  trajectory  option  indicator. 

IOUT 

u 

INTGR4 

Extra-ecliptic  mission  indicator. 

IROT  | 

u 

INTGR4 

Initial  primer  vector  rotation  indicator. 

LINE 

su 

INTGR4 

Current  number  of  lines  which  have  been 
printed  on  unit  11  during  the  current 
computer  run. 

MDAY 

SUA 

INTGR4 

Day-of-month  of  reference  date. 

MODE 

S 

INTGR4 

Power  variation  option  selector. 

MPOW 

U 

INTGR4 

Maximum  or  optimum  power  indicator 
during  solar  panel  degradation  option.  j 

NSET(5) 

SU 

INTGR4 

Iteration-sequence  control  array.  j 

OMK(5) 

SUA 

REAL8 

Ascending  node  angles  of  intermediate-  jj 

target  orbits,  in  degrees. 

QJEX 

S 

LOGIC4 

Detailed  printout  indicator. 

QMAX(35) 

S 

ITER2 

| 

Array  of  upper  allowable  values  for  the 
iterator  dependent-variables.  ] 

QMIN(35) 

S 

ITER  2 

Array  of  lower  allowable  values  for  the 

iterator  dependent-variables . 

SAIX{5) 

SUA 

REAL8 

h 

j] 

Semi-major  axes  of  intermediate-  | 

target  orbits,  in  AU.  j 

SOIX(5) 

SUA 

REAL8 

Arguments  of  perihelion  of  intermediate-  j 
target  orbits,  in  degrees.  • 

TMAX 

S 

REAL8 

Integration  stopping  condition*,  time  of 
flight  from  launch  to  primary  target, 
in  tau. 
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Q START  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TOFF  (20) 

S 

REAL8 

1 

Array  of  times,  from  the  start  of  the 
trajectory,  at  which  imposed  coast  phases 
are  to  begin,  in  days. 

TPIX(5) 

SUA 

1 REAL8 

Times  from  reference  date  to  perihelion 
passage,  for  the  intermediate  targets,  in 
days. 

VIMP 

S 

REAL8 

Launch  hyperbolic  excess  speed,  v , in 
AU/tau  (=EMOS) . °°° 

WIRL 

S 

LOGIC  4 

Primer-origin  proximity  step-size  con- 
trol logical  indicator. 

BRAKE 

S 

LOGIC4 

Retro  stage  logical  indicator. 

CONTM 

u 

REAL8 

Tau  to  days  conversion  factor* 

FLYBY 

s 

LOGIC4 

Flyby  mission  logical  indicator. 

INTER  (5) 

s 

INTGR4 

Array  of  indices  which  select  the  correct 
orbital  elements  for  the  intermediate 
targets. 

KOUNT 

u 

INTGR4 

Case  counter. 

LOADX 

t 

u 

INTGR4 

Indicator  for  invoking  the  intermediate- 
target  initial-guess  feature. 

MONTH 

SUA 

INTGR4 

Month-of-year  of  reference  date. 

MOPTX(5) 

SUA 

' INTGR4 

1 

The  target-numbers  of  the  successive 
intermediate  targets. 

MOPT2 

SUA 

1 

INTGR4 

Launch  planet-number  and  ephemeris- 
option  indicator. 

MOPT3 

SUA 

INTGR4 

Planet-number  of  primary  target. 

MPERF 

S 

INTGR4 

Indicator  which  selects  the  quantities 
to  be  optimized  when  the  iterator  is  ! 

operating  in  the  improve  mode.  ! 

i 
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Q START  EXTERNAL  VARIABLES  TABLE  (cont) 


■ 

B 

01 

Description 

MYEAR 

SUA 

INTGR4 

Year  of  reference  date. 

NPERF 

U 

INTGR4 

Identification  number  of  the  end  condition 
that  is  to  be  used  as  the  performance 
index  when  using  the  direct  parameter 
optimization  feature. 

NTAPE 

U 

INTGR4 

Specifies  the  unit-number  for  the  ASTEA 
trajectory  tape. 

PCURV 

S 

LOGIC4 

Logical  flag  indicating  whether  arrays  are 
currently  oriented  to  produce  maximum 
power. 

QDECL 

s 

LOGIC4 

Logical  flag  indicating  whether  launch 
asymptote  declination  effects  are  to  be 
included  in  simulation. 

RPOWO 

U 

REAL8 

Solar  distance  at  which  the  power  function 
y passes  through  zero,  r^=Q,  in  AU. 

SEFMA(7) 

SUA 

REAL8 

Array  containing  position  and  velocity  of 
launch  planet  at  launch  time,  PQ  and  PQ, 
in  AU  and  EMOS,  respectively. 

SEFMB(7) 

SUA 

REAL8 

Array  containing  position  and  velocity  of 
primary  target  at  time  of  target  intercept, 

P and  P , in  AU  and  EMOS, 
n n 

respectively. 

SEFMC(7) 

SUA 

REAL8 

Time  derivative  of  SEFMA  array  (w.r.t. 
tau). 

SEFMD(7) 

SUA 

REAL8 

Time  derivative  of  SEFMB  array  (w.r.t. 
tau). 

STATE  (6) 

SU 

REAL8 

Array  containing  the  Cartesian  position 
and  velocity  components  of  the  primary 
target,  in  AU  and  EMOS. 

SUN  MU 

U 

REAL8 

Gravitational  constant  of  the  sun,  in 

mVsec^. 
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Q START  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TDELV 

S 

REAL8 

Time  of  deep  space  burn,  in  tau. 

TRACK 

S 

LOGIC4 

Indicator  for  trajectory  long  block 
printout  (at  each  computation  step) . 

XLOAD 

S 

LOGIC4 

Logical  flag  indicating  if  continuity  at 
intermediate  targets  in  the  adjoint 
variables  is  to  be  assumed  as  a first 
guess. 

XLONG 

u 

REAL8 

Initial  heliocentric  longitude  of  final 
trajectory  of  preceding  case. 

ALTITU 

u 

REAL8 

Circular  orbit  altitude,  h,  in  nautical 
miles. 

CONVRG 

s 

LOGIC4 

Logical  flag  indicating  whether  iterator 
convergence  was  achieved. 

EMUODD 

SUA 

REAL8 

Gravitational  constant  of  the  primary 
target,  in  m3/sec2. 

EMUODX(5) 

SUA 

REAL8 

Gravitational  constants  of  intermediate 
targets,  in  mVsec3  (not  used  at  present). 

FJXPOW 

S 

LOGIC4 

Logical  flag  indicating  whether  launch 
vehicle  independent  mode  is  invoked. 

F EXT  HR 

1 

s 

LOGIC4 

Logical  flag  indicating  whether  fixed 
thrust  cone  angle  is  invoked. 

FPSNMH 

u 

REAL8 

Conversion  factor,  knots  to  fps. 

LAUNCH 

u 

INTGR4 

Launch  mode  selector. 

LCOUNT 

s 

INTGR4 

Counter  of  the  number  of  integrated 
points  along  the  trajectory. 

LEGMAX 

su 

INTGR4 

Total  number  of  legs  (trajectory  segments) 
between  start  of  trajectory  and  primary 
target;  equals  the  number  of  targets  up 
to  and  including  the  primary  target. 
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Q START  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable  ; 

V 

Use 

Common 

— 

Description 

MAXPOW  | 

S 

LOGIC4 

Logical  indicator  of  maximum  or 
optimum  power  during  solar  panel 
degradation  option. 

MBOOST 

SUA 

INTGR4 

Launch  vehicle  selector. 

MPRINT 

s 

INTGR4 

Indicator  for  printing  the  summary- 
trajectory  (final  case  trajectory)  as  a 
function  of  time. 

MPUNCH 

U 

INTGR4 

Punched-card  and  trajectory-tape  genera- 
tion control  indicator. 

MSTART 

XU 

Calling  argument  identifying  which  section 
of  code  to  execute. 

MTMASS 

s 

INTGR4 

Mission-type  selector  pertaining  to  the 
primary  target. 

NORMAL 

u 

INTGR4 

Automatic  adjoint -variable  normalization  j 

indicator. 

NPRINT 

u 

INTGR4 

Printout  amount  selection  indicator. 

OUTECL 

s 

LOGIC4 

Logical  flag  indicator  for  out-of-ecliptic  ; 

mission. 

PLANET 

s 

LOGIC4 

Logical  flag  indicator  for  ephemeris 
option. 

POSVEL 

s 

LOGIC4 

Logical  flag  indicator  for  flyby  mission 
with  constrained  intercept  speed. 

POWFIX 

u 

REAL8 

Launch-vehicle-independent  (i.e.,  no 
launch  vehicle)  trajectory  option  indi- 
cator, in  which  the  value  of  POWFIX  is 
the  spacecraft’s  reference  power  in 
kilowatts. 

QVLOSS 

s 

LOGIC4 

Logical  flag  indicator  for  finite  thrust, 

Earth  orbit  escape  mission.  j 
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QSTART  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

RADODD 

SUA 

REALS 

Radius  of  primary  target,  in  meters. 

RADODX 

(5) 

1 SUA 

j 

\ 

REALS 

Radii  of  intermediate  targets  , in  meters 
(not  used  at  present). 

REGION 

s 

LOGIC4 

Logical  flag  indicating  whether  space- 
craft is  currently  below  the  critical 
■solar  distance. 

RENDEZ 

S • 

LOGIC4 

Logical  flag  indicator  for  comet  or 
asteroid  rendezvous  mission. 

RPMAXO 

u 

REAL8 

Solar  distance  at  which  power  function  ! 

y peaks,  r , , in  AU.  | 

peak  j 

) 

RTSWIT 

s 

REAL8 

Critical  solar  distance  corresponding  to  | 
a special  point  in  the  solar  power  curve,  1 
in  AU.  j 

SPIRAL 

s 

LOGIC4 

i 

Logical  flag  indicator  for  spiral  capture  f 
option.  i 

TDATEX 

SUA 

■ 

REAL8 

Reference  Julian  date,  less  2400000,  | 

defined  by  program  input  quantity  MYEAR,  j 
etc.  | 

TDATE1 

SUA 

REAL8 

Launch  Julian  date,  less  2400000.  i 

TDATE2 

SUA 

REAL8 

Julian  date  at  time  of  primary-target  j 

intercept,  less  2400000.  j 

i 

TSCALE 

u 

REAL8 

P 

Iterator  dependent-variable  tolerance- 
interval  scaling  factor. 

TUDFLG 

s 

LOGIC4 

Logical  flag  indicator  for  two  dimensional  - 
simulation  of  missions. 

VELOSS 

s 

i 

LOGIC4 

Logical  flag  indicator  for  inclusion  of 
finite  burn  effects  in  analysis  of  retro 
stage  maneuver. 

WONDER 

' 

s 

LOGIC4 

Logical  flag  indicator  for  switch  corner 
monitoring  option. 
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Name: 


RADAR 


Calling  Argument:  QSETUP,  DER 

Referenced  Sub-programs : AEHSTWT,  EFM,  VDOT,  VMAG 
Referenced  Commons:  INTGR4,  TTERAT,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  CDERIV,  TRAJI 


Discussion:  The  purpose  of  RADAR  is  to  compute  the  communication-distance 
vector  R , its  derivative  R , and  the  communication  angle  0com>  of  the 
spacecraft  relative  to  Earth.  However,  these  same  vectors  and  angle  may  be 
computed  with  respect  to  any  reference  body  in  place  of  Earth,  via  employing  the 
program  input  quantity  NDIST ; this  allows  the  spacecraft  proximity  and  closest 
approach  distance  to  any  object  in  the  solar  system  to  be  determined.  The 
communication  angle  is  the  angle  subtended  by  the  sun-spacecraft  line  as  seen 
by  an  observer  on  the  reference  planet  (usually  Earth). 

In  normal  program  operation  (assuming  three  dimensional  motion), 
the  communication-distance  vector  and  its  derivative  are  obtained  simply  from 


R = R - R ,, 
com  ref 


R = R - R , . 
com  ret 


where  R is  the  spacecraft  position  and  R ^ is  the  reference  body  position; 
positions  are  in  AU,  velocities  in  EMOS,  expressed  in  ecliptic  coordinates  of 
date.  During  thrusting  flight,  the  spacecraft  velocity  R is  computed  as 

R = (l/rn)R*  = (l/rn)  dR/d/3, 

where  n is  the  numerical  integration  exponent  (program  input  quantity  AN) , 
r = |r  j , and  jS  is  the  trajectory  independent -variable. 
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When  simulating  two  dimensional  motion  (in  the  xy  plane),  it  is  not 

currently  possible  to  employ  the  program's  analytic  ephemeris  computation 

capability,  and  therefore  the  communications  reference  body  must  be  invented. 

This  is  accomplished  by  assuming  that  the  reference  body  commences  motion 

at  the  spacecraft's  initial  position  Xq  and  proceeds  in  a circular  prograde  orbit 

in  the  xy  plane  having  radius  r = |x  |,  speed  v = JlJr  , and  angular  rate 
. o o o o 

6 = vq/?o'  The  initial  position  angle  is  = tan-1  (y  /x  ).  Then 

0=0  + St, 

o 


such  that 


R 


com 


R 


com 


R = r 
ref  o 


R =v 
ref  o 


■ 

cos  0 

r 

sin  0 

0 

0 

-sin  0 

V 

cos  0 

0 

0 

cos  0 

■ 

sin  0 
0 

-sin  0 

-j 

cos  0 

The  communication  angle  is  then  computed  (for  both  two  and  three  dimensional 
motion)  as  follows,  assuming  t is  the  time  elapsed  since  the  start  of  the  trajectory: 


When  t > 0 ; 


0 = cos 

com 


-R  ‘ R 
ref  com 


R J R 
ref  com 


When  t - 0 (special  consideration  must  be  given  to  the  start  of  the  trajectory,  when, 
normally,  spacecraft  and  reference  body  positions  coincide,  and  sometimes  their 
velocities  coincide  also); 


838 


I 


(1)  If  R > 0,  then 

v ’ ' com 


0 = cos  1 r 

com  L 


-R  ‘ R -t 
ref  com 

|R  f|  |R  I J 
1 ref  com 


since  R defines  the  initial  motion  of  R • 
com  com 

(2)  If  Ir  1=0  (Zero  departure  excess  speed),  then 
' ’ com 


0 = cos  1 r 

com  L 


-R  , * A 
ref 


R J A 

1 ref  o 


M ■ 


since  A , the  initial  primer  vector,  determines  the  direction  of  thrust  and  therefore 
o 

also  determines  the  initial  motion  of  Rcom* 


Variable 


A (6) 

0(70) 

X(50) 


PI 

X0(7) 


RADAR  EXTERNAL  VARIABLES  TABLE 
Use  Common  1 Description 


SUAE 

U 

ITERAT 

UA 

REAL8 

i 

U 

REAL8 

U 

REAL8 

Reference  body  position  and  velocity, 

R , and  R „ in  AU  and  EMOS, 
ref  ref 

respectively. 

Array  of  iterator  independent -variables; 
here,  0(15)  is  the  launch  date,  relative 
to  the  reference  date  TDATEX. 

Array  of  trajectory  dependent  (integrated) 
variables,  containing  spacecraft  position 
R(X(i),  i = 1,2,3),  velocity  R (X(i),  i = 
4,5,6),  and  time  t (X(17)). 


Spacecraft  initial  position  and  velocity 

X , in  AU  and  EMOS,  when  simulation 
o 

is  two  dimensional. 
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radar- External  variables  table  (cont) 


Variable 

Use 

Common 

Description 

DER 

UX 

Conversion  factor  from  generalized 
derivatives  to  time  derivatives,  l/rn. 

CNIX(5) 

A 

REAL8 

Inclination  to  ecliptic  of  reference  body 
orbit  (location  4),  in  degrees. 

ECIX(5) 

A 

REAL8 

Eccentricity  of  reference  body  orbit 
(location  4). 

OMDC(5) 

A 

REAL8 

Ascending  node  angle  of  reference  body 
orbit  (location  4),  in  degrees. 

SAIX(5) 

A 

REAL8 

Semi-major  axis  of  reference  body  orbit 
(location  4),  in  AU. 

SOIX(5) 

A 

REAL8 

Argument  of  perihelion  of  reference  body 
orbit  (location  4),  in  degrees. 

TPDC(5) 

A 

REAL8 

Time  from  reference  date  to  perihelion 
passage,  for  the  reference  body 
(location  4),  in  days. 

XCOM(6) 

SA  i 

REAL8 

Communications-distance  vector  and  its 

derivative,  R and  R , in  AU  and 

com  com 

EMOS,  respectively. 

CONTM 

U 

REAL8 

Time  conversion  factor,  tau  (AU/EMOS) 
to  days. 

GLARE 

su 

REAL8 

Communication  angle,  0 , in  radians. 

com 

NDIST 

1 

INTGR4 

Reference  body  selector. 

EMUODX 

(5) 

A 

REAL8 

Gravitational  constant  of  reference  body 
(location  4),  in  m /sec^  (not  used  at 
present). 

OUTECL 

U 

LOGIC4 

Indicator  for  out-of-ecliptic  mission. 

PLANET 

U 

LOGIC4 

Ephemeris  option  indicator  (usually 
equivalent  to  three  dimensional  motion 
simulation). 
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RADAR  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

QSETUP 

UX 

Initialization  indicator. 

RADODX(5) 

A 

REAL8 

Radius  of  reference  body  (location  4), 
in  meters  (not  used  at  present). 

TDATEX 

UA 

REAL8 

Reference  date  (defined  by  program 
input  quantity  MYEAR , etc.). 

! 

TUDFLG 

U 

LOGIC4 

Indicator  for  two  dimensional  motion 
in  the  xy  plane;  "2D  flag". 
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Name: 


REMTIM 


Calling  Argument:  I,  J 

Referenced  Sub-programs ; None 
Referenced  Commons:  None 

Entry  Points : None 


Referencing  Sub-programs:  TIKTOK 


Discussion:  This  is  a dummy  subroutine,  to  replace  the  IBM  systems  subroutine 
REMTIM  at  the  Goddard  Space  Flight  Center.  The  machine  time-out  feature  and 
printout  discussed  under  subroutine  TIKTOK  are  therefore  not  available  when  this 
dummy  routine  is  part  of  the  program.  The  arguments  of  this  dummy  routine  are 
set  to  large  values  so  that  subroutine  TIKTOK  thinks  there  is  a large  amount  of 
machine  time  remaining  for  the  current  computer  run. 


REMTIM  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

I 

SX 

Remaining  CPU  time  for  run,  in 

seconds. 

J 

sx 

Remaining  I/O  time  for  run,  in 

seconds. 
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Name: 


RETINJ 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 


None 

None 

LOGIC4,  REAL8 


Entry  Points:  None 

Referencing  Sub-programs:  TRAJ 


Discussion:  RETINJ  is  a contraction  of  "retro  injection",  and  refers  to  the  retro 
maneuver  at  the  primary  target,  in  which  the  spacecraft  is  injected  into  a capture 
orbit  about  that  target.  This  may  be  accomplished  with  either  a high-thrust  retro 
stage,  or  a low-thrust  spiral  using  the  electric  propulsion  engine  which  performed 
the  heliocentric  transfer. 


In  the  high-thrust  maneuver,  a retro  stage  brakes  the  spacecraft,  approach- 
ing the  primary  target  along  a hyperbolic  orbit  of  excess  speed  v^,  into  an 
elliptical  capture  orbit  of  pericenter  distance  r^  and  apocenter  distance  r^.  The 
retro  stage  thrust  f and  jet  exhaust  speed  Cf  are  specified  by  input.  The  retro 
maneuver  is  assumed  to  take  place  at  the  periapsis  of  the  approach  hyperbola; 
therefore,  the  impulsive  change  in  velocity  is  given  by 


Av  = (v 


2 
00  n 


2 £ 
+ 2v  )2 
c 


„ 2 
2r  v 
a c 

(r  + r ) 
a p 


i 


where 


v = H /r 
c t p 


and  is  the  gravitational  constant  of  the  primary  target.  Provision  for  including 
the  finite  thrust  velocity  penalty  is  optionally  available.  This  feature  employs  the 
theory  developed  by  Robbins  (Reference  1).  The  total  velocity  required,  including 

the  velocity  penalty,  is  given  by 

Av’  = Av  + c,  e f , 

1 x x 
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where  Av’  is  solved  iteratively  with  the  following  equations, 


2 2 2 2 
c-  = k-  (v~„  + )/(vm_  + 2v  ) , 


>n 


’n 


k 

c 


v c (m  V - j m 
c r o n ps  ps 

2r  f 
P r 


e = 1 - 

X 


(-Av'/c  ) 
r 


f 

x 


2c 

= 2-<1+  37- >V 


where  j and  j are  retro  jettison  indicators,  v is  the  final  mass  ratio  (at 

yo  i n v 

the  primary  target),  m is  the  initial  spacecraft  mass,  m is  the  electric  pro- 

° ps  ^ 

pulsion  system  mass,  and  m^  is  the  electric-propulsion  tankage  mass. 

The  approximate  performance  requirements  of  the  electric  propulsion  spiral 

capture  maneuver  at  the  primary  target  are  computed  as  follows.  The  approximation 

is  based  on  asymptotic  matching  techniques  developed  by  Fimple  and  Edelbaum 

(Reference  2)  and  by  Breakwell  and  Rauch  (Reference  3).  The  technique  assumes 

that  a heliocentric  trajectory  to  a conceptually  massless  point,  having  the  position 

and  velocity  of  the  primary  target,  is  available.  The  approximation  then  yields  the 

additional  propellant  and  propulsion  time  that  would  be  required  above  that  of  the 

heliocentric  trajectory  to  insert  the  spacecraft  into  an  orbit  of  periapse  r and 

P 

apoapse  r using  the  electric  propulsion  spiral  maneuver.  It  should  be  noted  that 

a 

the  additional  propellant  and  time  computed  in  this  approximation  does  not  represent 
the  propellant  and  time  spent  performing  the  spiral  with  very  high  accuracy  because 
the  heliocentric  trajectory  included  a trajectory  segment  which  was  within  the  geo- 
metric boundaries  of  the  sphere  of  influence  of  the  planet.  The  additional  propellant 
and  time  computed  is  more  appropriately  considered  a correction  to  the  heliocentric 
trajectory  which,  when  added  to  the  requirements  of  the  heliocentric  trajectory,  yields 
a good  estimate  of  the  total  performance  requirement,  including  those  of  the  spiral. 
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Defining  the  semi-major  axis  of  the  capture  ellipse 


ac  “ (ra  + V/2, 

and  the  thrust  acceleration  at  the  end  of  the  heliocentric  trajectory  (at  the  primary 
target) 

a =g  yfv  , 
n n 

then  the  incremental  speed  associated  with  the  spiral  maneuver  is  calculated 

2 


a a 


1 

3- 


■which  leads  to  the  additional  propellant 

. _ -Av'/c, 

Am  = m v (1  -e  ), 

p on 


and  the  additional  time 


. -Av'/c  , 

At  = c (1  -e  )/a 


n 


where  g is  the  electric  propulsion  reference  thrust  acceleration,  c is  the  jet 
exhaust  speed,  and  y is  the  power  ratio  at  the  primary  target  (at  commencement 
of  the  spiral  maneuver. ) A velocity  penalty  Avx  is  adjoined  by  iteratively  solving 


Av 


= (J  — - Av)(l  - e^V  //'4C)  . The  total  speed 


is  then  Av1  = Av  + Av  . 

A 


Messages  and  printouts:  If  either  iteration  (high  thrust  velocity-loss  or  low  thrust 
velocity  penalty)  fails,  the  following  diagnostic  message  is  printed  on  unit  6: 

****  RETRO  MASS  RATIO  NOT  FOUND  TO  TOLERANCE  (f) (f1)  (Av)_ 


in  which  f is  the  function  (dependent  variable)  for  which  the  root  is  sought  by 
iteration,  f'  is  the  function  derivative  with  respect  to  the  independent  variable  of 
iteration,  and  Av  is  velocity  loss  in  the  high  thrust  case  and  total  speed  in  the 
low  thrust  case,  in  meters/second. 
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Should  the  thrust  acceleration  at  the  end  of  the  heliocentric  trajectory  (at 
the  primary  target),  a^,  be  zero  or  negative,  as  a result  of  the  main  heliocentric 
iteration  sequence,  then  the  message  is  printed  on  unit  6: 

****SPIRAL  COMPUTATIONS  DELETED 

In  either  case  above,  the  routine  is  simply  exited  after  the  message  is 
printed. 

References: 

1.  Robbins,  H.M. , "An  Analytical  Study  of  the  Impulsive  Approximation,  " 

A LA  A Journal,  Vol.  4,  No.  8,  pp.  1417-1423,  1966. 

2.  Fimple,  W.R.  and  Edelbaum,  T.  N. , "Applications  of  SNAP-50  Class  Power- 
plants  to  Selected  Unmanned  Electric  Propulsion  Missions,  " AIAA  Paper 
64-494,  1964. 

3.  Breakwell,  J.V.  and  Rauch,  H.E.,  "Asymptotic  Matching  in  Power  Limited 
Interplanetary  Transfers,  " AAS  Paper  66-114,  1966. 


RETINJ  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

AM 

S 

REAL8 

Multiplicative  factor,  zero  or  one,  for 

the  term  A • P in  the  transversality 
n n J 

conditions  associated  with  flight  time ; 
used  in  subroutine  GETQ. 

EX 

su 

REAL8 

The  quantity  e in  the  high-thrust  retro 
X 

computations. 

FP 

su 

REAL8 

f\  the  derivative  of  f = Av'  - Av 
— c,  e f with  respect  to  the  iteration 

1 X X 

independent  variable,  Av'. 

FT 

u 

REAL8 

Reference  thrust  acceleration  of  electric 

9 

propulsion  system,  g,  in  AU/tau  . 
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RETINJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Use 

Common 

Description 

VH 

SU 

REAL8 

Speed  at  periapse  of  approach  hyperbolic 
trajectory,  in  meters/second. 

VJ 

U 

REAL8 

Jet  exhaust  speed  of  electric  propulsion 
system,  c,  in  EMOS. 

VS 

SU 

REAL8 

2 2 2 
v , in  meters  /second  . 
c 

RAP 

u 

REAL8 

Capture-orbit  apoapse  distance,  r , in 
planet  radii. 

VHS 

SU 

REAL8 

VH  squared. 

CONG 

u 

REAL8 

Reference  acceleration  of  gravity  at 
Earth's  surface,  in  meters/second  . 

DVEL 

SU 

REAL8 

High  thrust  Av\  in  meters/second. 

POWR 

u 

REAL8 

Power  function  qy  evaluated  at  the  primary 
target. 

QCST 

s 

REAL8 

Retro  stage  mass  used  in  general  formula, 
subroutine  TRAJ. 

RPER 

u 

REAL8 

Capture-orbit  periapse  distance,  r , in 
planet  radii. 

VINF 

u 

REAL8 

Hyperbolic  excess  speed  at  the  primary 

target,  v , in  meters/second. 

®n 

VORB 

SU 

REAL8 

Spacecraft  speed  at  periapse  of  capture 
orbit,  in  meters/second. 

CONAO 

u 

REAL8 

Acceleration  conversion  factor,  AU/tau^ 
to  meters/second  . 

CONSP 

u 

REAL8 

Speed  conversion  factor,  EMOS  to 
meters/ second. 

FLYBY 

u 

LOGIC4 

Indicator  for  flyby  of  primary  target. 
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RETINJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

GPLAN 

U 

REAL8 

RPLAN 

u 

REAL8 

THRET 

u 

REAL8 

THSPY 

S 

REAL8 

VJRET 

su 

REAL8 

VLOSS 

su 

REAL8 

XMASS(7) 

u 

REAL8 

XMSPY 

s 

REAL8 

CONLBS 

u 

REAL8 

DMRETR 

u 

REAL8 

POSVEL 

u 

LOGIC4 

QTMASS(5) 

su 

REAL8 

RENDEZ 

u 

LOGIC4 

SPIRAL 

u 

LOGIC4 

Description 


Gravitational  constant  of  primary  target, 
in  m3/sec2. 

Radius  of  primary  target,  in  meters. 

Retro-stage  thrust,  in  pounds. 

Spiral-stage  thrust,  in  pounds. 

Retro-stage  jet  exhaust  speed,  c , in 
meter  s/second. 

Velocity  loss,  in  meters/second. 

General  mass  array;  XMASS(l)  is  initial 
spacecraft  mass,  m^,  in  kilograms. 

Spiral  additional  propellant,  Am  , in 
kilograms.  ^ 

Conversion  factor,  pounds  to  newtons. 

Retro  engine  mass,  m , in  kilograms. 

rs 

Indicator  for  specified  flyby  speed 
(greater  than  zero). 

Array  of  mass-related  parameters 

(1)  e~Av^°r  *°r  unity) 

(2)  m V - j m - rn 

on  ps  ps  t t 

(3)  QTMASS(2)  x (l-QTMASS(l)) 

(4)  Not  used. 

(5)  m + c x QTMASS(3) 

rs  r 

Indicator  for  rendezvous  (specified 
arrival  excess  speed  having  value  zero). 

Indicator  for  spiral  maneuver. 


RETINJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

SPIRET 

U 

REAL8 

Retro-stage  specific  impulse,  in  seconds. 

SPISPY 

S 

REAL8 

Spiral-stage  specific  impulse,  in  seconds. 

T1MSPY 

S 

REAL8 

Spiral  additional  time , At,  in  days. 

VELOSS 

U 

LOGIC4 

Indicator  for  performing  velocity  loss 
or  velocity  penalty  computations. 
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Name : 


RKSTEP 


Calling  Argument:  STEP1,  GO 

Referenced  Sub-programs:  DERIV,  PRIOR 

Referenced  Commons:  INTGR4,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  STEP 


Discussion:  This  routine  performs  the  standard  fourth-order  Runge  Kutta  integra- 
tion of  the  equations  of  motion  during  thrust  periods.  Briefly,  the  vector  equations 
of  motion  are  expressed  in  first-order  form  as 


X = F(X). 

where  the  dot  ( ° ) represents  differentiation  with  respect  to  the  trajectory  independent- 
variable  jS.  The  vector  of  trajectory  dependent -variable  values  X at  the  end  of  a 
computation  6tep  (/3  + A/S)  are  then  obtained  from  the  known  values  at  from 


where 


and 


VA/3=  V(A^)S 


S = (K1  + 2K2  + 2K3  + K4)/6  . 
Kx  = F(X^)  , 

Kg  = F(X0  + (A/9)  Kj^/2)  , 
k3  = fcx^+(A^)K2/2), 

K4  = F(Xq+  (A/S)  K3). 


The  vector  function  F is  represented  by  the  derivative  subroutine,  DERIV. 
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The  vector  of  trajectory  dependent-variables,  or  integrated  functions,  con- 
tains 50  locations,  to  allow  for  future  program  expansion;  only  20  locations  are 
used  at  present,  and  these  are  allocated  as  follows: 


Ml 


Symbol  Description 


X(l) 
X<2) 
X(3) 
X<4) 
X (5) 
X(6) 
X(7) 
X(8) 
X(9) 
X{10) 

xai) 

X(12) 
X(1  3) 
xa4) 
X(15) 
X(16) 
xa7) 

X(18) 

X(21) 

X(31) 


x 

y 

z 

X 

y 


| R,  spacecraft  position,  in  AU. 


V R,  spacecraft  velocity,  in  EMOS. 


z ) 

v Mass  ratio. 


A 

x 

A 

y 

A 

z 

A* 

x 


t 


A 

s 


s 


I A , the  primer  vector. 

y A,  the  primer  derivative. 

Mass  ratio  adjoint  variable. 

Reference  thrust  acceleration  adjoint  variable. 
Jet  exhaust  speed  adjoint  variable. 

Time,  in  tau  (AU/EMOS) 

Degradation  time  adjoint  variable. 

Fixed  thrust  angle  adjoint  variable. 
Degradation  time,  in  tau  (AU/EMOS). 


Locations  X(i)  not  specified  above  are  available  for  use.  Actually,  the  derivatives 
listed  above  are  time  derivatives  only  during  coasting  flight,  and  are  generalized 
derivatives  during  thrusting  flight,  as  described  in  the  discussion  of  subroutine 
DERIV. 
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RKSTEP  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

X(50) 

S 

REAL8 

Array  of  trajectory  dependent-variables, 

X. 

GO 

AX 

Logical  indicator  for  stepping  forward; 
when  true,  perform  saving  operation; 
when  false,  perform  restoration  opera- 
tion. 

SX(50) 

U 

REAL8 

Array  of  trajectory  dependent -variables 
corresponding  to  start  of  current  com- 
putation step,  X^  ("saved  X"). 

XD(50) 

U 

REAL8 

Array  of  trajectory  dependent-variable 

» 

derivatives,  X. 

TAU 

S 

REAL8 

Propulsion  time,  T,  In  tau. 

BETA 

S 

REAL8 

Trajectory  independent-variable,  j3. 

STAU 

u 

REAL8 

Propulsion  time  at  start  of  current  com- 
putation step  ("saved  t "). 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

SB  ETA 

u 

REAL8 

Trajectory  independent-variable  /J  at 
start  of  current  computation  step 
("saved  /3"). 

STEP1 

ux 

Computation  step  size,  A0. 

FIXTHR 

u 

LOGIC4 

Indicator  for  fixed  thru st-cone -angle. 

NPHI20 

u 

INTGR4 

Index  which  selects  the  currently 
applicable  fixed  thrust-cone-angle 
adjoint  variable;  set  equal  to  21  for 
the  present. 

QERODE 

u 

LOGIC4 

Indicator  which  is  true  when  either 
ERODE  or  QJEX  (final  case -summary 
trajectory)  is  true. 
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Name: 


SCOMP 


Calling  Argument:  ALPHA,  Z,  S 

Referenced  Sub-programs:  None 


Referenced  Commons:  None 

Entry  Points:  None 

Referencing  Sub-programs:  ANSTEP,  IMPULS 

2 

Discussion:  This  subroutine  evaluates  the  functions  G.(0  ) required  for  the 
solution  of  the  two-body  Kepler  problem.  The  parameter  0 is  related  to  the 
increment  in  universal  anomaly  A£  through  the  formula 

02  = (A/3)2/a  (1) 


where  a is  the  semi-major  axis.  Thus,  for  elliptic  orbits,  0 represents  the 
change  in  eccentric  anomaly  from  the  reference  position.  Denoting 

o:  = - 02  (2) 


then  the  functions  G.  are  defined 

i 


F.  = ) 


0! 


3 


i <-  (2j  + i)! 

j^O 


G{  = <A0)  F.  . 


(3) 

(4) 


Inspection  of  equation  (3)  will  verify  that  the  F.  satisfy  the  following  recursion 
formula 

vtr +ari+2-  (5) 

Thus  the  series  expression  (3)  need  be  solved  for  only  the  two  highest  order 
terms  F after  which  the  lower  order  terms  are  obtained  with  (5),  The  number 

. L 

of  terms  required  in  (3)  to  maintain  the  desired  accuracy  is  dependent  upon  the 
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magnitude  of  a.  It  has  been  determined  that  ten  terms  yield  16  digits  of  accuracy 
for  |a  [ s i.  For  larger  values  of  |a  | , reduction  formulae  permit  the  accurate 
computation  of  the  F.  with  10  terms  of  the  series.  The  procedure  is  to  divide 
the  input  a by  4 a number  of  times  n until  the  result  is  less  than  1.  Denote 
this  result  a',  then  the  equations  for  F.  (4a')  in  terms  of  F (a')  are 

i i'  ' * 

Fg(4a')  = [f2(«')  + FQ(a')  Fs(a')]/4 
F2(4a’)  = F1(a')2/2 

r 1 (6) 

F5(4a')  = [F4(a')  + F2(a')/6+  FQ(a')  F5(a')J /i6 

F4(4a')  = Oya')  + F1(a»)  F3(a')]/8. 

The  lower  order  terms  in  either  case  are  obtained  from  the  recursion  formula(5). 
Equations  (6)  are  cycled  n times  where  the  a'  of  each  cycle  is  the  4a'  of  the 
preceding  cycle.  The  desired  functions  G.  are  then  obtained  from  (4). 


SCQMP  EXTERNAL  VARIABLES  TABLE 


i 


I 

I 

I 
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CHART  TMlt  - HP* -M»OC  EOURAL  STA»f"fNT 


Name: 


SETUP 


Calling  Argument:  None 

Referenced  Sub-programs:  None 

Referenced  Commons:  1NTGR4,  ITERAT,  LOGIC4 

Entry  Points:  None 

Referencing  Sub-programs:  QSTART 

Discussion:  Subroutine  SETUP  "sets  up”  (initializes)  the  logical  variables  which 
are  used  (many  times  during  an  iteration  sequence)  in  subroutine  GETQ.  Generally, 
the  name  of  a logical  variable  in  this  subroutine  begins  with  "A",  which  is  followed 
by  a number,  and  terminated  by  an  alphabetic  character.  A,  B,  C,  etc.  The  number 
corresponds  to  the  index  of  the  iterator  dependent  variable,  and  the  alphabetic 
character  corresponds  to  the  trigger-setting  of  that  variable,  in  accordance  with 
the  description  of  program  input  quantities  Yi.  Thus,  for  example,  A11C  corres- 
ponds to  the  eleventh  (11)  input  iterator  dependent  variable  (Yll),  and  in  particular 
to  the  third  (C)  trigger  setting  of  Yll,  which  is  Pref  (specified  reference  power). 

•Messages  and  printouts:  Should  any  Y17  triggers  (indicators)  be  turned-on  (non- 
zero) but  the  related  program  input  quantity  LAUNCH  be  zero,  the  diagnostic 
message  is  printed  on  units  6 and  12: 

WARNING.  TRIGGERS  NO.  17  SHOULD  BE  ZERO  WHEN  LAUNCH  = 0 


SETUP  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

BX(5, 70) 

U 

ITERAT 

Array  of  iterator  independent -variable 

values  and  controls. 

BY (5,  70) 

U 

ITERAT 

Array  of  iterator  dependent -variable 

values  and  controls. 
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SETUP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 


ABY(70) 


Common  Description 

LOGIC4  Master  array  of  iterator  dependent- 

variable  indicators. 


A68A 

A68B 

A69A 

A70A 


LOGIC4 

LOGIC4 

LOGIC4 

LOGIC4 


LOGIC4 

LOGIC4 

LOGIC4 

LOGIC4 


Logical  indicators  which  are  initialized 
in  subroutine  SETUP  and  used  in  sub- 
routine GETQ  for  computation  of 
iterator  dependent-variable  values; 
see  Discussion  for  association-code. 


APHI(2, 10) 


LOGIC4  | Logical  indicators  associated  with 
multiple  fixed  thrust-cone -angles; 
only  the  first  one  (21)  is  applicable 
at  present. 


LAUNCH 


INTGR4 


Launch  mode  selector. 


LEGMAX 


INTGR4  Total  number  of  legs  (trajectory 

segments)  between  start  of  trajectory 
and  primary  target;  equals  the  number 
of  targets  up  to  and  including  the 
primary  target. 


LIMPHI 


INTGR4  Highest  index -value  of  all  non-zero 

(multiple)  fixed  thrust-cone-angles; 
highest  permissible  value  is 
currently  one. 


878 


9 


SETUP-3 


AuTonou  Chari  sc  t - c.s.r  c nutop  occrwifp  mm 


1 JS  1 v *o  *0 1 JO 1 n» 


SETUP-5 


I 0 tc 


Ml  I Of  L OW  CH*M  5f  f 


SETUP-7 


Chart  SI t - c s.r.c.  hiitor  OfCf 


UK  I Tf  TO  D( V 


SETUP-11 


01/01/M  nut  oriow  choot  sf  i - c s r c miltop  ofcr«etn  mm  pagc 


(hoci-value  Cf  mi 

HO Hit  90  F I if o t m n u s t 


AU TO* l OU  C««»  I SF  I 


SETUP-13 


SETUP-15 


AU  T Of  i OK  C H A A I Jtl  • G.5.F.C.  «ll»OA  DF  C C * 6 f A M 1 *1 


SETUP-17 


*utohou  cmabt  irr  - c s.r.c.  hiltop  orcFnir*  hm 


. TPyF 


fag i m 


ORIGINAL  Pa^  ... 
)0F  POOR  QVMJ2X 


H 

W 

w 


■ in* 


900 


Name: 


SMQINT 


Calling  Argument: 


G 


tilANK 


NO'l 


/C/,  /A/,  IN  for  SMQINT; 
SOLUTN  for  SIMEQ 


Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points 

Referencing  Sub-programs: 


None 

None 

SIMEQ 

GUESS,  MINMX3  for  SMQINT  and  SIMEQ 


Discussion:  Entry  point  SIMEQ  solves  a set  of  simultaneous  linear  equations  of 
the  form 

CA  = B 

for  the  n-dimensional  column  matrix  A where  C is  a known  square  nxn 
matrix  and  B is  a known  n-dimensional  column  matrix.  SMQINT  performs 
Initialization  for  SIMEQ. 

SIMEQ  employs  Gauss’  method  of  elimination  to  solve  a set  of  simultaneous 
linear  equations.  Basically,  this  method  involves  the  solution  of  one  of  the  n equa- 
tions for  one  of  the  unknown  elements  of  A in  terms  of  the  other  elements  of  A, 
substituting  this  result  into  the  remaining  equations  and  deriving  the  new  coefficients 
for  the  reduced  set  of  equations  of  order  (n  -1).  By  successively  repeating  this 
procedure,  a single  equation  in  one  unknown  is  generated.  The  solution  of  this 
equation  yields  one  element  of  A in  terms  of  the  known  coefficients  of  B and  C. 
Using  this  solution  and  proceeding  backwards  successively  through  the  equations 
of  two  unknowns , three  unknowns,  etc.,  the  unique  solution  vector  A is  obtained. 

A detailed  description  of  this  method  is  given  in  the  reference. 

Upon  successfully  solving  for  the  A matrix,  the  argument  SOLUTN  is  set 
to  .TRUE. , and  a return  to  the  calling  routine  is  executed.  This  logical  indicator 
is  set  to  . FALSE,  if  it  is  found  that  all  of  the  equations  are  not  linearly  independent. 

The  coding  of  SIMEQ  assumes  that  the  B array  is  stored  immediately  be- 
hind the  C matrix  such  that,  in  effect,  C is  dimensioned  nx(n  + l),  and  B is 
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addressed  as  the  (n  + l)th  column  of  C.  The  values  contained  in  both  B and  C 
are  destroyed  in  the  computations.  Note  that  the  inverse  of  C is  not  explicitly 
formed. 

Reference: 


Pipes,  Louis  A.  and  Shahen  A.  Hovanessian,  Matrix  Computer  Methods  in 
Engineering.  John  Wiley  & Sons,  Inc.,  New  York,  1969,  pp.  15,  16. 


SMQINT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

A 

SUX 

Array  containing  the  solution  vector  A. 

C(IN,  IN+1) 

UX 

Array  containing  the  matrix  C in  the 
first  IN  columns  and  the  matrix  B in 
the  (IN+l)th  column. 

IN 

ux 

Order  n of  the  problem,  equal  to  the 
number  of  simultaneous  equations. 

SOLUTN 

sx 

Logical  flag  indicating  whether  the 
solution  matrix  A was  successfully 
obtained. 

.TRUE.  - solution  successfully  obtained. 
. FALSE.  - solution  not  obtained  because 
equations  are  not  linearly 
independent. 
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Name;  SOLAR  AGE  BLANK  NOT  F1LUbd 

Calling  Argument:  None 

Referenced  Sub  -programs : PRINT,  PRINTR  for  SOLAR; 

None  for  SOLINT 

Referenced  Commons:  INTGR4,  ITERAT,  LOGIC4,  REAL8 

Entry  Points:  SOLINT 

Referencing  Sub-programs:  CHECK,  DERIV,  FUNCT,  QPRINT,  SPRINT, 

SWSTO,  TAP,  TRAJI  for  SOLAR; 

QSTART  for  SOLINT 

Discussion:  For  all  its  formidable  source-length,  SOLAR  is  essentially  a very 
simple  routine,  except  that  it  becomes  somewhat  involved  when  power  degradation 
Is  considered. 

SOLAR's  basic  job  is  to  produce  the  power  function  y and  related  para- 
meters, such  as  the  density  function,  d,  the  damage  factor,  q,  and  the  partial  de- 

2 2 

rlvatives  By/3r,  By/8d,  and  B y/5d  . 

SOLINT's  basic  job  is  to  perform  the  initialization  of  certain  parameters 
and  logical  indicators  which  are  used  throughout  each  trajectory  computation;  this 
often  involves  an  iteration  to  isolate  a particular  solar  distance  at  which  the  power 
function  y has  a given  property,  such  as  a maximum,  zero,  or  a specified  value. 

A note  to  the  programmers:  a great  percentage  of  execution  time  is  spent 
in  SOLAR,  since  the  power  function  value  y must  be  computed  at  each  computa- 
tion step  and  at  each  integration  sub-cycle  during  thrust  phases.  Therefore,  all 
efforts  should  be  made  to  minimize  the  number  of  operations  in  SOLAR  should  modi- 
fications be  required. 

Consider  first  the  case  in  which  power  degradation  is  not  considered,  i.e. , 
the  damage  factor  q is  assumed  to  be  unity  at  all  times  and  is  therefore  absent 
from  the  formulation.  In  this  case,  it  is  allowable  to  simulate  housekeeping 
power  onboard  the  spacecraft,  and  the  power  factor  y is  given  by 
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which  is  the  ratio  of  instantaneous  power  to  reference  power.  Ap  is  a specified 
value,  input  to  the  program,  and  is  defined  as  the  ratio  of  housekeeping  power  to 
reference  power, 


Ap  = Ph/P 


ref  ’ 


This  expression  for  y holds  also  when  power  degradation  is  computed,  except 
that  Ap  must  be  zero  for  the  computations  to  be  meaningful;  the  program  auto- 
matically checks  this  and  disallows  the  simultaneous  simulation  of  housekeeping 
power  and  power  degradation. 

In  the  above  expression  for  y,  the  a^  are  normalized  coefficients  which 
characterize  the  power-source,  and  d is  the  density  function,  which  may  simply 
be  a constant  in  some  cases  (as  with  nuclear  electric  propulsion),  or,  in  the  case 
of  solar  electric  propulsion,  is  assumed  to  be  of  the  same  form  as  the  density  of 
photons  striking  the  surface  of  the  array, 


d = C0SX 
2 ’ 
r 

where  r is  the  spacecraft’s  solar  distance  and  x is  the  angle  by  which  the  arrays 
are  tilted  away  from  normal  incidence  of  solar  flux. 


The  following  partial  derivatives  are  also  computed,  when  they  are  required, 
for  utilization  either  within  SOLAR  or  in  other  parts  of  the  program: 

fj  "<i  + ap>/  *,(i+i)d‘/4- 


ad2 


i=0 
4 


<1+Ap)£  ai(i+£)(i)d<i-4>/\ 


i=0 


910 


by 

3 r 


\ 


3 y 3d 
3d  3r 


x = o 


x=0 


2_  3y 
3 3d  * 


When  power  degradation  is  simulated,  the  damage  factor  q is  computed, 


-S/T. 
q = e d 


where  s is  the  degradation  time  and  is  the  characteristic  degradation  time. 
Ap  must  be  zero  during  degradation  simulations,  so  that  the  power  factor  y may 
be  expressed, 


When  the  propulsion  mode  is  solar  electric,  and  power  degradation  due  to 
solar-flux  damage  to  the  solar  arrays  is  simulated,  then  the  possibility  may  exist 
of  tilting  the  solar  arrays  away  from  the  sun  to  achieve  the  optimum  trade-off  be- 
tween power  received  and  solar-cell  damage.  Thus  the  tilt  angle  X will  be  bounded 

by  v on  the  maximum-power  side  and  tt/2  on  the  minimum-power  side, 

curve 

where  the  latter  bound  corresponds  to  zero  power  (coasting  flight)  with  the  arrays 
oriented  edgewise  to  the  sun.  X curve  is  t'ie  va*ue  °*  X corresponding  to  the 
power  curve  y at  the  current  solar  distance,  and  the  particular  form  of  the 
power  curve  is  decided  by  the  program  input  quantity  MODE. 


The  essential  quantity  computed  is  not  the  tilt  angle  X hut  rather  the 
density,  d.  The  value  of  this  quantity  is  chosen  to  satisfy  the  Maximum  Principle 
of  optimal  control  theory.  When  the  optimum  tilt  angle  lies  between  the  two 
bounds  V < x < ir/2,  the  expression  for  the  optimum  density  is  a quartic  in 

the  variable  d*  , and  this  expression  is  solved  by  Newton's  iteration  rather 
than  the  quartic-formula,  since  it  is  felt  that  Newton's  iteration  results  in  fewer 
computations,  on  the  average,  than  the  rather-involved  closed  form  quartic  solu- 
tion. Nevertheless,  the  iteration  is  executed  to  an  extremely  tight  tolerance,  since 
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this  iteration  occurs  at  each  computation  step  (and  at  each  integration  sub-cycle 
during  thrust  phases),  and  accumulated  computational  noise  must  be  minimized 
along  the  trajectory  if  the  two-point  boundary  value  problem  is  to  converge. 

The  iteration  consists  of  varying  the  independent  variable  d until  the 
root  of  the  function 

foprq<x'‘Vc)  !s  + V/g' 

is  obtained,  making  use  of  Newton's  method  employing  the  slope, 


opt 

3d 


3 2y 

q(*-^\,/c)  — g 

3d 


A more  detailed  discussion  of  the  solution  for  the  optimum  density  d is  given 

in  Reference  1 for  a specific  set  of  coefficients  a . 

i 

Once  the  optimum  density  is  computed,  two  functions  are  computed  for 
monitoring  by  subroutine  CHECK.  These  are 


t .2* 

chi  hd 


actual 


by 

3d 


power  curve 


which  is  used  in  isolating  the  points  at  which  the  solar  array  tilt  angle  switches 

to  or  from  the  power-curve  boundary  x , and 

curve 


f = — 
ch2  3d 

which  is  used  in  isolating  points  at  which  the  arrays  are  tilted  edgewise  to  the 
sun  X*=*v /2.  The  roots  of  these  two  functions  therefore  determine  when  to 
switch  to  and  from  the  boundaries  corresponding  to  minimum  and  maximum  x* 


3y 

ad 


actual 


absolute  max 


Entry  point  SOLINT  performs  the  initialization  of  the  logical  indicators 
which  are  used  over  and  over  in  the  step-by-step  computation  of  each  trajectory, 
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and  also  of  the  critical  values  (of  solar  distance  and  associated  parameters  such 
as  d and  y)  which  are  required  in  the  function  monitoring  by  subroutine  CHECK. 
The  power  law  coefficients  a.  are  initialized;  that  is,  their  values  are  set  to 
either  the  program's  internal  default  values  or  to  the  user's  input  values.  Then 
the  coefficients  b.  used  in  the  computation  of  (dy/dr)x=Q  are  initialized, 


There  are  then  four  possible  iterations,  each  involving  a single  independent 
and  dependent  parameter,  and  using  Newton's  method  for  finding  a function  root, 
which  may  be  executed  in  order  to  find  the  critical  point(s)  of  the  power  curve. 

(1)  Iteration  to  find  the  solar  distance  r at  which 


using  the  derivative 


f' 


df 

Sr 


d r 


» 


where  y is  input  to  the  program  (GAMMAX).  There  may  be  more  than  one 
max 

solution,  but  for  reasonable  coefficients  a.,  the  iteration  will  yield  the  greater 
solar  distance. 

(2)  Iteration  to  find  the  solar  distance  r at  which 


using  the  derivative 


dr 


*2 
5 y 

Xr.Q 

dr2 


This  is  the  iteration  to  find  y = maximum,  which  is  the  peak  of  the  power 

X ^ 

curve. 
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Iteration  to  find  the  solar  distance  r at  which 


using  the  derivative 


f = y =0  , 

X=0 


f.=  21  = ayx=o 

dr  dr 


The  solution  to  this  iteration  corresponds  to  that  point  on  the  power  curve  at 
which  the  solar  arrays  are  heated  due  to  solar  proximity  such  that  their  power 
output  vanishes.  Due  to  the  steep  slope  of  the  power  curve  in  this  neighborhood, 
an  accurate  initial  guess  of  r for  the  iteration  is  obtained  by  sweeping  out  a 
grid  of  points  in  the  neighborhood  of  y=0  until  a value  of  r is  found  which  is 
within  approximately  .02  AU  of  the  solution. 

( 4)  Iteration  to  find  the  density  d for  which 

-a,-. 

dd 


using  the  derivative 


p,=i£  = i_x 


This  applies  to  trajectories  involving  power  degradation,  and  therefore  Ap  = 0 
(no  housekeeping  power).  The  root  of  the  function  f is  designed  to  yield  the  ab- 
solute maximum  value  of  dy/dd,  which  is  used  to  compute  f (see  above). 
The  solution  for  d is  then  the  minimum  value.  The  third-partial  in  f*  is  given 
by 


^ ■£,' h(l+*XrXr-Od<l'8,/4 

Ap  = o 

See  Reference  1 for  more  insight  into  power  degradation  considerations. 
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Messages  and  printouts:  When  the  iteration  for  the  optimum  density,  in  subroutine 
SOLAR,  fails  to  converge,  the  following  diagnostic  message  is  output  on  unit  6: 

ITERATION  FOR  POWER  DENSITY  FAILED.  DIT,  F,  FP,  BSOL,  COEF,  Q = 


in  which  DIT  is  the  value  of  density,  d (all  values  corresponding  to  the  failure 

point),  F is  the  value  of  the  function  f (see  Discussion),  FP  is  df^/dd, 

BSOL  is  u\  /c,  COEF  is  q{X-v\  /c),  and  Q is  X v/g.  For  the  first,  and 
v v s 

only  the  first,  time  this  iteration  fails  during  a given  computer  run,  the  following 
occurs : 

(1)  The  message  is  printed  on  unit  12: 

POWER  DENSITY  ITERATION  FAILED 

(2)  The  heading  is  printed  on  unit  11: 

FAIL  X(I) 

followed  immediately  by  all  of  the  iterator  independent-variable  and  dependent- 
variable  values  (via  a call  to  subroutine  PRINT).  The  independent-variable  values 
maybe  used  to  regenerate  the  fail -trajectory;  the  dependent-variable  values  are 
meaningless  since  they  correspond  to  the  priorly-computed  trajectory  (if  there 
■was  one). 

(3)  The  same  as  in  (2)  is  printed  on  unit  6,  using  a call  to  subroutine  PRINTR. 

All  of  the  remaining  output  comes  from  entry  point  SOLINT  and  consists 
of  either  informative  messages  after  successful  iterations  or  diagnostic  messages 
after  iteration  failures,  all  output  on  unit  6,  except  for  the  following  termination 
message  which  is  output  on  units  6 and  12  when  the  user  attempts  to  simulate 
both  housekeeping  power  and  power  degradation: 

COMBINATION  OF  DEGRADATION  AND  HOUSEKEEPING  POWER  OPTIONS  NOT 
ALLOWED 
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The  run  is  then  terminated. 

If  either  Iteration  (1)  or  Iteration  (3)  (see  Discussion)  fails,  the  message 
is  printed : 

SOLAR  POWER  LAW  ITERATION  FAILURE 
AT  RADIUS  = (r)  AU,  POWER  = (?) 

where  r is  the  solar  distance  in  AU  at  the  failure  point  and  y is  the  corresponding 
power  function  value. 

When  either  Iteration  (1)  or  Iteration  (2)  converges,  the  informative  message 
is  printed: 

MAXIMUM  POWER  = (y)  AT  RADIUS  = (r)  AU. 

When  Iteration  (3)  converges,  the  informative  message  is  printed: 

ZERO  POWER  AT  RADIUS  = (r)  AU. 

When  Iteration  (4)  converges,  the  informative  message  is  printed: 

MINIMUM  DENSITY  = ^min*  MAXIMUM  DPOWD  = (ft?/dd)max) 

where  the  printed  quantities  are  described  in  the  Discussion. 

When  Iteration  (2)  fails,  the  message  is  printed: 

SOLAR  POWER  LAW  ITERATION  FAILURE 

AT  RADIUS  = (r)  AU.  POWER  DERIVATIVE  W.R.  T.  RADIUS  = (5  y/dr) 

When  Iteration  (4)  fails,  the  message  is  printed: 

SOLAR  POWER  LAW  ITERATION  FAILURE,  D = (d)  DPOWDD  = (d2y/dd2) 

If  the  error  in  any  of  the  failed  iterations  is  still  relatively  small,  the  pro- 
gram will  accept  the  results  of  the  iteration  (after  printing  the  corresponding 
diagnostic  message)  and  continue  execution.  Otherwise,  before  setting  the  program 
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master  error-indicator  and  exiting,  an  additional  line  is  printed: 
UNACCEPTABLE.  CASE  SKIPPED. 

and  also  the  message  is  printed  on  unit  12: 

SOLAR  POWER  LAW  ITERATION  FAILURE.  CASE  SKIPPED. 


Reference : 


J.L.  Horsewood,  F.I.  Mann  and  K.B.  Brice,  "The  Generation  and  Inter- 
pretation of  Electric  Propulsion  Mission  Analysis  Data,  " AMA,  Inc. 
Report  No.  73-38,  August  1973. 


SOLAR  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

D 

SUE 

-2 

The  density,  d,  in  AU 

0(70) 

U 

ITERAT 

Array  of  iterator  independent -vari- 
ables, in  internal  units. 

X(50) 

U 

REAL8 

Array  of  trajectory  dependent -variables 
(see  subroutine  RKSTEP). 

FT 

u 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau  . 

00(70) 

s 

ITERAT 

Array  of  iterator  independent-variables, 
in  external  units. 

RT 

U(S) 

i 

REAL8 

Spacecraft  solar  distance,  r,  in  AU; 
the  most  fundamental  input  to  SOLAR ; 
used  as  iteration  variable  in  SOLINT . 

VJ 

u 

REAL8 

Jet  exhaust  speed,  c,  in  EMOS. 

A1S 

s 

REAL8 

Leading  power  law  coefficient,  a^. 

PMN 

u 

REAL8 

Primer  magnitude,  X . 
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SOLAR  EXTERNAL  VARIABLE  S TABLE 


Variable 

Use 

Common 

ASOL(5) 

U 

REAL8 

CONX(70) 

U 

IT  ERA  T 

DMAX 

SU 

REAL8 

DMIN 

su 

REAL8 

DPOW 

u 

REAL8 

EDGE 

u 

LOGIC4 

FLAP 

su 

LOGIC4 

HEAT 

su 

LOGIC4 

LINE 

1 

su 

INTGR4 

MODE 

u 

INTGR4 

POWR 

su 

REAL8 

QJEX 

u 

LOGIC4 

SPIN 

s 

LOGIC4 

(cont) 


Description 


Program-input  power  law  coefficients, 
a.  - input  (normalized). 

Array  of  iterator  independent-variable 
conversion  factors. 

Maximum  value  of  density,  d , in 
AU“2.  max 


Minimum  value  of  density,  d . , in 
AU“2. 

Housekeeping-power  ratio,  Ap,  input 
to  the  program. 

Indicator  for  solar  arrays  being  oriented 
edgewise  to  the  sun;  used  only  if  power 
degradation  is  simulated. 

Indicator  for  power-curve  options 
corresponding  to  nuclear-electric  pro- 
pulsion or  solar-electric  propulsion 
using  reflecting  flaps  to  maintain  maxi- 
mum power. 

Indicator  that  the  solar  panels  are 
maintained  normal  to  the  sun  line  at 
all  times. 

Counter;  equals  the  number  of  lines 
which  have  been  output  on  unit  11  during 
the  current  computer  run. 

Power  variation  option  selector. 

Power  ratio,  q y . 

Detailed  printout  indicator. 

Spinner  indicator  (not  used  at  present). 


SOLAR  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

| 

TILT 

SU 

LOGIC4 

Indicator  that  arrays  are  to  be  tilted 
during  solar  proximity  (to  maintain  con- 
stant power  when  there  is  no  degradation). 

CHFNC 

S 

REAL8 

A function  whose  roots  determine  the 
switch  points  of  the  array  tilt  angle  to 
and  from  the  power-curve  boundary, 

fchl* 

CONTM 

U 

REAL8 

Time  conversion  factor,  tau  to  days. 

DPOWD 

SU 

REAL8 

q dy/dd. 

DPOWR 

SU 

REAL8 

q dy/dr. 

ERODE 

SU 

LOGIC4 

Power  degradation  option  indicator. 

error 

s 

LOGIC4 

Program  master  error  indicator. 

HOUSE 

SU 

LOGIC4 

Housekeeping  power  option  indicator. 

ISPIN 

u 

INTGR4 

Spinner  indicator  (not  used  at  present). 

PCURV 

u 

LOGIC4 

Indicator  for  condition  in  which  solar 
arrays  are  oriented  to  receive  the 
maximum  power  permissible  under  the 
current  power-curve  assumption,  or 
to  be  tilted  away  from  the  maximum 
permissible  due  to  degradation  consid- 
erations. 

PMAXO 

SU 

REAL8 

Maximum  value  of  power  function,  7^^. 

RPOWO 

SU 

REAL8 

Solar  distance  at  which  the  power 
function  y passes  through  zero,  r , 

in  AU. 

CHFNC2 

s 

REAL8 

A function  whose  roots  determine  the 
switch  points  of  the  array  tilt  angle  to 
and  from  the  stowed-edgewise  boundary 

<X=1T/2),  fch2- 
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SOLAR  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

I Use 

Common 

Description 

DEGRAD 

SU 

REAL8 

Damage  factor,  q. 

DPDMAX 

su 

REAL8 

Absolute  maximum  of  dy/Bd,  used 

in  computation  of  f , . 

ch2 

DPOWDD 

SU 

REAL8 

qS2y/3d2. 

GAMMAX 

u 

REAL8 

Maximum  value  of  power  function,  y , 

input  to  the  program.  max 

MAXPOW 

su 

LOGIC4 

Indicator  for  mode  of  operation  in  which 
solar  panels  are  maintained  in  orienta- 
tion to  receive  maximum  permissible 
power,  when  degradation  option  is 
invoked. 

REGION 

u 

t 

j 

LOGIC4 

1 

Indicator  for  spacecraft  solar  proximity; 
demarks  two  possible  regions  in  space, 
separated  by  sphere  about  sun  of  speci- 
fied radius,  at  which  power  function  (or 
its  derivative)  has  a corner. 

RPMAXO 

su 

REAL8 

Solar  distance  at  which  power  function 

y peaks,  r , , in  AU. 
peak 

TAUPOW 

su 

REAL8 

Negative  inverse  of  characteristic  de- 
gradation time,  -l/r,  in  tau-1. 

d 

T POWER 

u 

REAL8 

i 

Solar-cell  degradation  characteristic- 
time, T,,  in  days, 
d 

I 
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Name: 


SPRINT 


Calling  Argument: 
Referenced  Sub-programs-. 

Referenced  Commons: 


IND 

ALBEDO,  CARKEP,  EFM,  PUNCH,  SOLAR,  TFORM, 
VCR  OSS,  VDOT,  VMAG,  VSCAL 

INTGR4,  ITERAT,  LOGIC4,  REAL8,  SOLSYS 


Entry  Points:  None 

Referencing  Sub-programs:  INTERP,  TAP 


Discussion:  Subroutine  SPRINT  produces  the  standard  block  print  of  trajectory  and 
spacecraft  variables  at  the  current  time  point  of  the  final  trajectory  for  the  case.  The 
program  input  variable  MPRINT  controls  how  frequently  SPRINT  is  called.  If 
MPRINT  = 1,  SPRINT  is  called  at  the  end  of  each  compute  interval  and  thereby  pro- 
duces a complete  time  history  of  the  trajectory.  If  MPRINT  = 0,  then  SPRINT  is 
called  only  at  thrust  switch  points  and  target  encounters,  thereby  producing  what  is 
termed  the  switch  point  summary.  In  either  case,  all  switch  points  and  target  en- 
counters are  identified  with  a message  preceding  the  block  print.  To  facilitate  reading 
the  printout,  a block  of  titles  is  printed  at  the  top  of  each  page,  with  the  title  in  each 
print  position  corresponding  to  the  numeric  value  printed  in  the  same  relative  position 
of  all  other  blocks  on  the  page. 

The  block  print  may  contain  from  five  to  eight  lines  of  eight  variables  each, 
depending  on  the  options  invoked.  The  arrangement  and  explicit  definitions  of  all 
variables  included  in  the  print  are  described  fully  in  the  section  Auxiliary  Computa- 
tions. 

Messages  and  printouts:  Examples  of  the  switch  point  summary  and  of  the  detailed 
trajectory  print  are  illustrated  on  the  following  pages.  Additional  examples  may  be 
seen  in  the  Sample  Problems  and  Results  section. 


pjmwmng  page  blank 
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SPRINT  EXTERNAL  VARIABLES  TABLE 


Variable 

m 

Common 

Description 

0(70) 

u 

ITERAT 

Array  of  iterator  independent-variables, 
in  program  internal  units. 

R(2) 

u 

REAL8 

Spacecraft  solar  distance,  r,  at  start 
of  computation  step  (R(l))  and  instanta- 
neously (R  (2)),  in  AU. 

X(50) 

u 

REALS 

Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 

FT 

u 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

RC 

su 

REAL8 

3 

Cube  of  spacecraft  solar  distance,  r , 
in  AU3. 

RT 

su 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 

XD(50) 

u 

REAL8 

Array  of  trajectory  dependent-variable 
derivatives;  XD(17)  is  dt/dp'  = rn,  used 
for  conversion  from  generalized  deriva- 
tives to  time  derivatives. 

APL(2 , 70) 

u 

SOLSYS 

Array  of  planet  names. 

AVJ 

u 

REAL8 

Inverse  of  jet  exhaust  speed,  l/c,  in 
EMOS-1. 

DEG 

u 

REAL8 

Conversion  factor  between  radians  and 
degrees;  number  of  degrees  in  one  radian. 

ETH(3) 

su 

1 

REAL8 

i 

Thrust  unit  vector,  e^. 

IND 

ux 

Calling  argument  employed  to  select 
specific  printout  desired  on  each  call. 

LEG 

u 

INTGR4 

Counter  indicating  the  current  trajectory- 
segment. 

PHI 

u 

REAL8 

Thrust  angle,  0,  in  radians. 

S PR  TNT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable  ! 

! 

Use  j 

Common 

Description 

| PLC 

U 

REAL8 

First  component  of  thrust  switch  function, 

V 

PSI 

u 

REAL8 

Thrust  angle  0,  in  radians. 

SPV(3) 

su 

REAL8 

Star  unit  vector,  s. 

TAU 

u 

REAL8 

Propulsion  time,  T,  in  tau. 

DMAX 

u 

REAL8 

• ATT'2 

Maximum  value  of  density,  d , in  AU  . 

UlctX 

EDGE 

u 

LOGIC4 

Indicator  for  solar  arrays  being  oriented 
edgewise  to  the  sun;  used  only  if  power 
degradation  is  simulated. 

ETHD  (3) 

u 

REAL8 

Thrust  unit  vector  time-derivative,  e , 
_1  1 
in  tau  . 

IEND 

s 

INTGR4 

Indicator  for  endpoint  of  trajectory. 

POWR 

SUA 

REAL8 

Power  function,  q y. 

ALTAU 

u 

REAL8 

Propulsion-time  adjoint  variable, 

ANGLE 

u 

REAL8 

Travel  angle,  6t,  in  radians. 

COAST 

u 

LOGIC4 

Indicator  for  coast  or  thrust  phase. 

CONDS 

su 

REAL8 

Distance  conversion  factor,  AU  to  meters. 

CONSP 

su 

REAL8 

Speed  conversion  factor,  from  AU/tau  to 
meters/second. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

DPOWD 

u 

REAL8 

Ratio  of  housekeeping  power  to  reference 
power,  Ph/Pref* 

DPOWR 

u 

REAL8 

q dy/dr. 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 
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SPRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

j Use 

Common 

Description 

EXTRA 

U 

LOGIC4 

Indicator  for  extra  printout  for  each  tra- 
jectory block  print  (computation  step). 

INTER  (5) 

U 

INTGR4 

Array  of  indices  which  select  the  correct 
orbital  elements  for  the  intermediate 
targets. 

KOUNT 

u 

INTGR4 

Case  number  of  computer  run. 

MOPTX(5) 

u 

INTGR4 

The  target-numbers  of  the  successive 
intermediate  targets. 

MOPT2 

u 

INTGR4 

Launch  planet  number. 

MOPT3 

u 

INTGR4 

Planet-number  of  primary  target. 

PCURV 

u 

LOGIC4 

Indicator  for  condition  in  which  solar 
arrays  are  oriented  to  receive  the  maxi- 
mum power  permissible  under  the  current 
power-curve  assumption,  or  to  be  tilted 
away  from  the  maximum  permissible  due 
to  degradation  considerations. 

QMORE 

u 

LOGIC4 

Logical  flag  indicating  whether  program 
is  currently  operating  under  the  control 
of  subroutine  MORE  which  performs  the 
ballistic  swingby  continuation  analysis. 

THETA 

u 

REAL8 

Thrust  angle  6,  in  radians. 

TRACK 

u 

LOGIC4 

Indicator  for  trajectory  long  block  print- 
out (at  each  computation  step). 

YLONG 

s 

REAL8 

Initial  heliocentric  longitude  which  is 
saved  for  use  in  the  next  case. 

DEGRAD 

u 

REAL8 

Damage  factor,  q. 

DENSIT 

u 

REAL8 

_2 

Power  density,  d,  in  AU 

FIXTHR 

u 

LOGIC4 

Indicator  for  fixed  thrust-angle. 

i 
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SPRINT  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use  j 

I 

Common 

Description 

INTERX 

U 

INTGR4 

Index  used  in  subroutine  EFM  which 
indicates  which  array  locations  are 
applicable  in  selecting  orbital  elements. 

LCOUNT 

su 

INTGR4 

Counter  of  the  number  of  integrated 
points  along  the  trajectory. 

LEGMAX 

u 

INTGR4 

Total  (maximum)  number  of  trajectory- 
segments  comprising  the  trajectory. 

MPUNCH 

u 

INTGR4 

Punched-card  and  trajectory-tape  genera- 
tion control  indicator. 

OUT EC L 

u 

LOGIC  4 

Extra-ecliptic  mission  indicator. 

PLANET 

u 

LOGIC4 

Ephemer is -option  indicator. 

RTSWIT 

u 

REAL8 

Critical  solar  distance  corresponding  to 
a special  point  in  the  solar  power  curve, 
in  AU. 

SWITCH  (2) 

u 

REAL8 

Thrust  switch  function,  o,  defined  in 
similar  manner  to  R(2). 

TDATEX 

u 

REAL8 

Reference  Julian  date,  less  2400000,  de- 
fined by  program  input  quantity  MYEAR, 
etc. 
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Name: 


STEP 


Calling  Argument:  DBETA,  GO 

Referenced  Sub-programs:  ANSTEP,  FUNCT,  RKSTEP 

Referenced  Commons:  LOGIC4 

Entry  Points:  None 

Referencing  Sub-programs:  CHECK,  INTERP,  TAP 

Discussion:  This  subroutine  performs  the  computation  step,  having  size  DBETA, 
and  is  the  basic  switchyard  between  the  Runge  Kutta  integrator  and  the  analytic 
coast  phase  solution.  It  also  computes  certain  functions,  in  subroutine  FUNCT, 
required  by  the  program  at  each  computation  step. 


STEP  EXTERNAL  VARIABLES  TABLE 


— 

Variable 

Use 

Common 

Description 

GO 

AX 

Logical  indicator  for  stepping  for- 
ward: when  true,  program  is  stepping 
forward;  when  false,  program  is 
iterating  for  a remarkable  point. 

COAST 

U 

LOGIC4 

Coast  phase  indicator. 

DBETA 

AX 

i 

Computation  step  size,  AjS. 
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STEP-3 


I 

I 

I 

I 

I 


I 


Name-. 


STORE 


PRECEDING  PAGE  BLANK  NOT  FILMED 

Calling  Argument:  J for  STORE; 

None  for  STOREI 


Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub -prog  rams: 


None 


EXTREM,  1NTGR4,  LOGIC4,  REAL8 
STOREI 

CHECK  for  STORE  and  STOREI 


Discussion:  Subroutine  STORE  stores,  in  the  arrays  of  COMMON  EXTREM,  the 
extremum  and  associated  values  of  selected  functions  which  are  checked  (monitored) 
by  subroutine  CHECK  along  the  trajectory.  These  values  are  ultimately  printed  in 
the  "Extremum  Points  of  Selected  Functions"  page.  The  routine  is  called  once  per 
computation  step,  during  which  several  extrema  and/or  special  points  along  the 
trajectory  may  be  isolated.  Multiple  entries  (points  at  essentially  the  same  time 
along  the  trajectory)  are  eliminated  by  consolidation  after  the  array  of  extremum 
or  special  points  is  sorted  in  terms  of  ascending  time. 

Entry  point  STOREI  zeroes-out  the  indicator -locations  (the  first  locations) 
of  the  storage  arrays;  the  second  locations  are  the  value-locations. 

Messages  and  printouts:  When  the  storage  arrays  are  filled,  the  message  is  printed: 

ARRAYS  IN  LABELLED  COMMON  BLOCK  EXTREM  FILLED. 

STORAGE  OF  DATA  IN  EXTREM  TERMINATED. 


The  comprehensive-monitoring  indicator  is  turned  off,  and  the  routine  is  exited. 


STORE  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

J 

SUX 

The  number  of  isolated  points  associated 
with  the  current  computation  step. 

CEPS 

(14,20,2) 

SU 

EXTREM 

General  array  of  isolated  points  containing 
values  associated  with  the  current  com- 
putation step. 
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STORE  EXTERNAL  VARIABLES  TABLE  (cont) 


Use 

Common 

Description 

CHEX 

(2,100) 

S 

EXTREM 

Storage  array  for  solar-panel  array 
angle,  X,  in  degrees. 

DIST 

(2,100) 

SU 

EXTREM 

Storage  array  for  spacecraft  solar 
distance,  r,  in  AU. 

NCEP 

u 

INTGR4 

Maximum  number  of  different  parameters 
which  are  stored,  to  be  printed. 

PMAX 

SU 

REAL8 

Maximum  value  of  power  ratio,  (yq)  , 

max 

encountered  along  the  trajectory. 

QJEX 

s 

LOGIC4 

Indicator  for  comprehensive  monitoring 
of  trajectory  functions. 

RMAX 

SU 

REAL8 

Maximum  solar  distance,  r , 

max 

encountered  by  the  spacecraft  along  the 
trajectory,  in  AU. 

RMIN 

SU 

REAL8 

Minimum  solar  distance,  r . , encountered 

min 

by  the  spacecraft  along  the  trajectory,  in  AU. 

TIME  (100) 

s 

EXTREM 

Storage  array  for  time  elapsed  since  start 
of  trajectory,  t,  in  days. 

TRAV(100) 

s 

EXTREM 

Storage  array  for  ecliptic  longitude,  in 
degrees. 

NSPEC 

SU 

INTGR4 

Master  array  index  (and  counter)  for  ' 

storage  arrays. 

ONOFF 

(2,100) 

s 

EXTREM 

Storage  array  for  thrust  switching 
function,  a. 

POWEX 

(2,100) 

SU 

EXTREM 

Storage  array  for  power  ratio,  yq  . 

AKOUNT 

(100) 

SU 

EXTREM 

Storage  array  for  the  number  of  iterations 
required  to  isolate  the  associated  point. 

I 


i 
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STORE  EXTERNAL  VARIABLES  TABLE  (cont) 


Use 

Common 

Description 

ANGCOM 

(2,100) 

S 

EXTREM 

Storage  array  for  communication  angle, 
in  degrees. 

ANGPHI 

(2,100) 

s 

EXTREM 

Storage  array  for  thrust  angle  0 , in 
degrees. 

ANGPSI 

(2,100) 

s 

" EXTREM 

Storage  array  for  thrust  angle  in 

degrees. 

ANGTHE 

(2,100) 

S 

EXTREM 

Storage  array  for  thrust  angle  6,  in 
degrees. 

DISCOM 

(2,100) 

s 

EXTREM 

Storage  array  for  communication  dis- 
tance, in  AU. 
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Name: 


SUMMRY 


Calling  Argument:  K,  SPIT 

Referenced  Sub-programs:  None 

Referenced  Commons:  INTGR4,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  FINISH,  TKTOK 


Discussion:  This  routine  prints  a single  page  of  selected  parameters  at  the  ter- 
mination of  each  computer  run.  Each  case  of  the  run  corresponds  to  one  line  of 
output,  the  information  for  which  is  stored  by  a call  to  SUMMRY  at  the  end  of  each 


case. 


Messages  and  printouts:  The  single  page  of  selected  parameters, 

summarizing  the 

computer  run, 

are  printed  as  follows: 

RUN  SUMMARY 

NET 

REFERENCE  TRAVEL  COMMUNICATION 

INITIAL 

MASS 

POWER  ANGLE  DISTANCE  ANGLE 

MASS 

CASE  (KG) 

(KW)  PEG)  (AU)  PEG) 

(KG) 

• • • 

• • • 

• • « 

PROPEL 

DEPART 

MAX 

BURN 

FLIGHT 

CALENDAR 

MASS 

EXCESS 

POWER 

TIME 

TIME 

LAUNCH 

(KG) 

(M/S) 

(KW) 

PAYS) 

PAYS) 

DATE  STATUS 
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When  more  than  30  cases  exist  on  a given  computer  run,  the  storage  and  printout 
of  summary  information  is  halted  at  the  30*“  case,  and  the  following  line  is 
printed: 

SUMMARY  GRID  FILLED.  SOME  CASES  ARE  DELETED. 


SUMMRY  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

K 

sux 

Case-number  of  computer  run. 

SAVE 

(2000) 

u 

REAL8 

Array  of  all  COMMON/REAL8/variables. 

SPIT 

ux 

Indicator  for  storage  operation  or 
summary  printout  operation. 

ERROR 

u 

LOGIC4 

Program  master  error  indicator. 

ISAVE 

(1000) 

u 

INTGR4 

Array  of  all  COMMON/INTGR4/variables. 

CONVRG 

u 

LOGIC4 

Iteration  sequence  convergence  indicator. 

i 
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Name: 


SWING 


Calling  Argument: 


INDEX,  NS,  NT,  TLEG2,  GOOD,  BURN,  RPERI, 
XSTATE,  YSTATE,  A,  NSWING 


Referenced  Sub-programs:  AEINWT,  CONVER,  EFM,  MINMX3,  SWTRAJ , VCROSS, 

VDOT,  VMAG,  VSCAL,  VSUB 


Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


INTGR4,  ITERAT,  ITER2,  LOGIC4,  REAL8,  SOLSYS 

None 

MORE 


Discussion:  Subroutine  SWING  performs  the  swingby-continuation  analysis,  invoked 
by  the  NAMELIST  input  vector  MOPT4,  whereby  ballistic  swingbys  past  the  primary 
target  may  be  simulated. 

In  one  mode  of  program  operation,  invoked  by  MOPT4(l)  > 0,  single  swingbys 
past  the  primary  target  may  be  simulated  to  up  to  ten  post-swingby  targets  per  case. 

In  another  mode  of  program  operation,  invoked  by  MOPT4(l)  < 0,  multiple 
swingbys  along  a single  trajectory  may  be  simulated,  first  swinging  past  the  primary 
target  and  then  subsequently  swinging  past  more  targets  downstream  along  the  tra- 
jectory. One  multiple  swingby  trajectory  may  be  simulated  per  case. 

In  either  mode  of  operation,  the  following  basic  assumptions  are  made.  The 
swingby  continuation  computations  are  independent  of  the  trajectory  leg  leading  up  to 
the  swingby  target,  which  may  consist  of  an  optimized  electric  propulsion  trajectory 
segment  (if  the  swingby  planet  is  the  primary  target),  except  that  the  arrival  and 
arrival  time  at  the  swingby  planet  are  used  in  the  determination  of  the  swingby  passage 
conditions.  Each  swingby  maneuver  is  calculated  under  the  assumption  of  the  patched- 
conic  approximation,  and  the  swingby  planet's  sphere-of-influence  is  assumed  to  have 
zero  radius  as  seen  from  interplanetary  space  and  infinite  radius  as  seen  from  the 
planetary  vantage  point.  The  passage  time  in  the  swingby  planet’s  sphere-of-influence 
is  neglected  (taken  to  be  zero  in  the  heliocentric  frame). 
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Each  swingby  maneuver  may  be  either  unpowered  or  powered.  Since  the  un- 
powered swingby  solutions  are  embedded  in  the  wider  class  of  powered-swingby 
solutions,  tending  to  appear  in  pairs  which  are  separated  by  a region  of  braking 
powered  swingbys,  the  more  general  case  of  powered  swingbys  is  discussed  first. 

A powered  swingby  maneuver  is  restricted  to  occur  at  the  mutual  perifoci  of 
the  approach  and  departure  hyperbolic  arcs;  the  powered  phase  is  impulsive  and  the 
thrust  is  colinear  (pro  or  con)  to  the  velocity  at  closest  approach.  Whether  the  swing- 
by is  powered  or  unpowered,  the  trajectory  segment  leading  up  to  the  swingby  planet 
has  been  pre-determined,  this  being  the  method  by  which  the  subroutine  has  been  de- 
signed to  obtain  swingby  solutions.  Therefore  the  swingby  time  and  the  arrival 
hyperbolic  excess  velocity  V are  known.  Let  subscript  A pertain  to  arrival  at 
the  swingby  planet  and  subscript  D pertain  to  departure. 

A basic  assumption  of  the  powered  swingby  problem  posed  here  is  that  the 
flight  time  from  the  swingby  planet  to  the  next  target  is  specified.  This  being  so,  the 
subroutine  is  able  to  converge,  by  iteration,  on  some  ballistic  trajectory  from  the 
swingby  planet  to  the  next  target  having  the  specified  transfer  time,  implying  that  the 
departure  hyperbolic  excess  velocity  V at  the  swingby  planet  is  thereby  determined. 
Therefore,  the  heliocentric  trajectory  before  and  after  the  swingby  planet  is  determined, 
and  it  then  remains  to  perform  the  required  computations  pertaining  to  the  hyperbolic 
arcs  within  the  swingby  planet's  sphere  of  influence. 


The  closest  approach  distance  is  found  by  iteration  as  follows.  Let 

2 

r V A 

P 05  A 


and 


a = 1 + 

A /Li 


r v 

a = 1 + 

D (i 


where  v^  - |V0(>A  | , vmD  - Iv^l  , rp  is  the  (unknown)  passage  distance,  and 
(JL  is  the  swingby  planet's  gravitational  parameter.  Then  the  approach  and  departure 
hyperbolic  bend  angles  are  given  by 
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cosec  a = sin  (l/cc  ), 

2 A A 


-1 

= cosec 


sin  1 (l/aD). 


and  these  must  sum  up  to  the  total  bend  angle,  which  is  specified  in  terms  of 

and  V ■ 
a>D 


COS 


-1 


V . ‘ V _ _ 
°°A  °°D  I 

v v J 
oo  A °°D 


V 


“A 


Therefore,  using 


r as  the  independent  variable,  the  zero  of  the  quantity 
P 


V 'V 

-i  . -i  , -i  r °° a °d  i 

F = sin  (l/a  ) + sin  <l/aD)-cos  - J 


oo  a ®D 


is  obtained  by  Newton's  iteration,  using  the  derivative, 


SF 

(=L) 

(r 

'2  /«  . 
®D  D] 

Sr 

P 

\ ii  > 

L 7“  a-1  V 

D 

When  the  iteration  is  converged,  the  passage  distance  r^  is  in  hand,  and  the  im 
pulsive  velocity  increment  is  computed, 


where  the  square -root -quantities  are  the  hyperbolic  speeds  at  closest  approach. 
The  remaining  parameters  defining  the  planetocentric  transfer  are  computed  as 
follows.  The  inclination  of  the  swingby  orbit  plane  to  the  planet's  equator  is  given 

by 

-1  - 

i = cos  (h  • n^), 


where  h is  the  unit  vector  along  the  angular  momentum  of  the  hyperbolic  passage 
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trajectory  and  n is  a unit  vector  pointing  toward  the  swingby  planet's  north  pole. 

r 

The  ascending  node  angle  of  the  swingby  orbit  plane  is  computed  as, 

= tan  1 (-h  /h  ) , 

x y 

and  is  placed  in  the  proper  quadrant  by  using  the  system  library  routine  DATAN2. 
The  argument  of  perifocus  is  given  by, 


p n 

where  r is  the  unit  vector  pointing  toward  the  closest  approach  point  and  r is 
P n 

the  unit  vector  lying  along  the  line  of  nodes  and  pointing  toward  the  ascending  node. 
This  is  adjusted  for  the  proper  quadrant  by  the  test, 

If  h (r  xr  ) < 0,  co-  2TT  - w. 

z n p z ’ 

In  the  right-handed  planetary  reference  frame,  the  z-axis  is  toward  the  planet's 
north  and  the  x-axis  points  toward  the  ascending  node  of  the  planet's  equator  on 
the  ecliptic. 

An  unpowered  swingby  maneuver  is  considered  to  be  a powered  swingby 
having  Av  = 0.  The  subroutine  adjusts  the  post-swingby  heliocentric  trajectory 
segment,  by  iteration,  until  the  swingby  departure  magnitude  equals  the  given 
arrival  magnitude.  The  primary  independent  variable  in  this  iteration  is  the 
post-swingby  transfer  time  to  the  specified  target,  which  was  held  constant  in  the 
powered  swingby  case.  Thus  v^^  = = v^,  and  the  swingby  passage  distance 

is  obtained  from  the  formula, 

0- 

same  relations  given  above. 


r =J±-  ( _ 
p 2 N 
v_  V 


2v 


- V I 
®A  “D ' 


The  other  orbital  parameters  are  obtained  from  the 
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The  subroutine  allows  the  generation  of  multiple -revolution  ballistic  arcs,  and 
a particular  solution  obtained  by  the  subroutine  may  not  be  unique,  even  for  the  same 
transfer  time.  All  solutions  are  reachable,  however,  by  means  of  inputting  an  approp- 
riate initial  velocity  guess  for  the  trajectory  segment  in  question. 

Messages  and  printouts:  The  normal,  informative  printout  from  this  subroutine  is 
output  on  unit  6 as  follows: 

(name  1)  SWINGBY  CONTINUATION  TO  (name  2) 

where  name  1 is  the  name  of  the  swingby  planet  and  name  2 is  the  name  of  the  post- 
swingby  target; 

PASS  DIST  (RADII)  SPEED  (M/SEC)  INC  LIN  PEG)  NODEpEG)  ARGPER  PEG)  ... 

(r  ) (v  ) (i)  (^) 

P . — 

LEG  TIME  PAYS)  MISSION  TIME  PAYS)  ARR  VINF  (M/SEC) 

(At)  (T)  (vj 


where  r is  the  swingby  passage  distance  in  units  of  planet-radii  (of  the  swingby 
planet),  v is  the  planetocentric  speed  of  the  spacecraft  at  closest  approach,  in 
meters/second,  i is  the  inclination  of  the  swingby  passage  hyperbolic  orbit  to  the 
planet's  equatorial  plane,  in  degrees,  £2  and  gj  are  the  ascending  node  and  argument 
of  perlfocus,  in  degrees,  as  described  in  the  discussion.  At  is  the  time  of  flight 
from  swingby  planet  to  post-swingby  target,  in  days,  T is  the  total  time  elapsed 
since  the  start  of  the  trajectory  (i.e. , launch)  up  to  intercept  of  the  post-swingby 
target,  in  days,  and  v#  is  the  hyperbolic  excess  speed  at  arrival  of  the  post-swing- 
by target,  in  meter  s/second. 

The  arrival  and  departure  hyperbolic  excess  velocity  vectors  at  the  swingby 
planet,  in  ecliptic  coordinates,  (v^  Vy,  v^,  are  then  printed  twice  (including  their 
magnitudes),  the  first  time  in  EMOS  and  the  second  time  normalized  to  unity: 
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ARRIVAL  V00 

MAG- 

DEPARTURE  V00 

MAG- 

ARRIVAL  V00 

MAG- 

DEPARTURE  V00 

MAG- 

(ECLIPTIC  REFERENCE  SYSTEM) 

(ECLIPTIC  REFERENCE  SYSTEM) 

1.0  (ECLIPTIC  REFERENCE  SYSTEM) 
1.0  (ECLIPTIC  REFERENCE  SYSTEM) 


Other  parameters  associated  with  the  swingby  maneuver  are  printed  as  follows: 


HELIOCENTRIC  APPROACH  ANGLE= , DEPART  ANGLE- , BEND  ANGLE-  DEGREES 

SWINGBY  INCLINATION  W.R.T.  ECLIPTIC- DEGREES 

POWERED  SWINGBY  INCREMENTAL  SPEED- METERS/SECOND 

BEND  ANGLE- DEGREES  (PLANETOCENTRIC) 


where  the  heliocentric  approach  and  departure  angles  are  the  angles  between  the 
swingby  planet's  heliocentric  radius  vector  and  the  (planetocentric)  approach  and  de- 
parture hyperbolic  excess  velocity  vectors,  respectively,  in  degrees,  the  bend  angle 
is  6^  as  described  in  the  discussion,  in  degrees,  the  swingby  inclination  w.r.t.  the 
ecliptic  is  the  angle  between  the  swingby  orbit  plane  and  the  ecliptic,  in  degrees,  and 
the  powered-swingby  incremental  speed  is  given  by  Av  in  the  discussion,  in  meters/ 
second. 

When  powered  swingbys  are  being  simulated,  the  above  output  will  be  preceded 
either  by 

POWERED  SWINGBY  ANALYSIS  ONLY,  FOR  FIXED  SWINGBY  LEG  FLIGHT  TIME 

(At)  DAYS 

or  by 

POWERED  SWINGBY  ANALYSIS,  FOR  FIXED  SWINGBY  LEG  FLIGHT  TIME  (At)  DAYS 
AND  USING  LAST  VELOCITY  GUESS  FROM  ABOVE  ITERATION  <vx>  (vy)  ^vz  > 


depending  on  the  chosen  method  of  analysis;  At  is  the  post-swingby  transfer  time, 
in  days,  and  (v^,  v , v^)  consist  of  the  heliocentric  departure  (from  the  swingby 
planet)  velocity,  in  EMOS  and  in  ecliptic  coordinates.  The  latter  heading  will  appear 
if  the  analyst  first  directs  the  program  to  seek  the  unpowered  solution,  as  a prelude 
to  finding  the  desired  powered  solution. 
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Except  for  summary  output  on  unit  12,  the  remainder  of  the  output  consists 
of  diagnostic  and  error  messages  pertaining  to  various  failure  modes  of  the  sub- 
routine printed  on  unit  6,  the  failures  for  the  most  part  consisting  of  iterations  which 
fail  to  converge.  The  unit  12  output  consists  of 

INDEX  = (i) 

DELTA  V = (Av)  M/S 

where  i is  the  so-called  "index",  running  from  1 to  a maximum  of  10,  which  is 
essentially  the  i corresponding  to  program  input  vector  MOPT4(i),  and  Av  is  the 
(powered)  swingby  incremental  speed,  in  meters/second. 

Depending  upon  the  mode  of  analysis  chosen  by  the  analyst  via  program  input, 
the  following  may  be  printed  when  an  iteration  for  an  unpowered  swingby  trajectory 
fails: 

ERROR  VECTOR  ^1*  TIME  = (At)  DAYS. 

where  (q  , q , q , q ) are  the  iterator  dependent-variable  values  (at  the  end  of  the 
iteration  secjuence),  as  described  in  the  discussion  of  subroutine  SWTRAJ,  and  At 
is  iterator  independent-variable  value  b^  (see  SWTRAJ),  which  is  the  transfer  time 
to  the  post-swingby  target,  in  days*  This  message  is  followed  by 

UNPOWERED  SWINGBY  FAILS.  POWERED  SWINGBY  ANALYSIS  FOLLOWS,  FOR 
FIXED  SWINGBY  LEG  FLIGHT  TIME  (At)  DAYS* 

where  At  is  the  same  as  above.  When  the  powered  swingby  iteration  fails,  the  follow- 
ing is  printed: 

ERROR  VECTOR  ^ (Q3) 

SWINGBY  ITERATION  FAILS.  ERRORX  = (e),  CONVGE  = (c),  INDEX  = (i)_ 

where  (q  , q , q ) are  the  same  as  above,  e and  c are  condition  indicators  output 
12  3 

by  the  iterator,  and  i is  the  index  described  previously. 

Whenever  the  iteration  for  the  powered-swingby  passage -distance  fails,  the 
following  is  printed: 
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ITERATION  FOR  POWERED  SWINGBY  PASSAGE  RADIUS  DID  NOT  CONVERGE. 

RP  = (V  F = f FP  = (f1)  INDEX  = (i) 

POST -SWINGBY  TARGET  = (name) 

where  r is  the  final  value  of  passage  distance  attained,  in  planet  radii,  f and  f’ 

P 

are  F and  dF/^r  as  given  in  the  discussion,  i is  the  index  defined  above,  and 
P 

"name"  is  self-explanatory.  If  the  above  iteration  is  ’’almost"  converged,  the 
message  is  printed: 

NEARLY  CONVERGED 

and  execution  continues,  otherwise  the  routine  is  exited  after  normal  printout. 

It  is  possible  that  all  iterations  might  converge,  yet  the  passage  distance  may 
be  less  than  one,  corresponding  to  (in  reality)  an  impact  of  the  surface  of  the  swingby 
planet.  The  value  of  the  passage  distance  is  compared  to  unity,  and,  if  less,  the 
routine  is  exited  after  printing 

SWINGBY  TO  (name)  PASSAGE  DISTANCE  NEGATIVE 
Rp  = (rp)  INDEX=  (i) 

where  "name"  is  the  name  of  the  post-swingby  target,  r is  the  passage  distance,  in 

P 

planet  radii,  and  i is  the  index  defined  previously. 

When  requesting  that  the  analyst’s  initial  guess  for  heliocentric  velocity  be 
employed  to  start  the  trajectory  segment  from  swingby  planet  to  post-swingby  target, 
it  is  possible  that  the  analyst  will  either  then  forget  to  input  the  velocity  or  input  the 
velocity  in  the  wrong  locations,  such  that  the  default  value  of  zero  velocity  would  be 
attempted,  corresponding  to  a trajectory  which  falls  into  the  solar  singularity  (except 
for  computational  noise)  at  r = 0.  The  program  checks  for  zero  initial  velocity,  and, 
if  detected,  stops  execution  after  printing  on  units  6 and  12: 


FATAL  ERROR.  SWINGBY  INITIAL  VELOCITY  GUESS  = 0 


SWING  EXTERNAL  VARIABLES  TABLE 


j Variable 

Use 

Common 

Description 

A (6) 

SUAX 

Array  containing  position  and  velocity 
of  swingby  leg  target  body  at  time  of 
intercept,  in  AU,  AU/tau. 

B(35) 

SUA 

ITER  2 

Array  of  (active)  iterator  independent 
variables. 

Q<35) 

U 

ITER2 

Array  of  (active)  iterator  dependent- 
variables. 

X(50) 

SUA 

REAL8 

Array  of  trajectory  integrated  variables. 

BS(35) 

S 

ITER  2 

Array  of  maximum  step-sizes  for  the 
independent  variables. 

BW(35) 

S 

ITER2 

Array  of  independent-variable  weighting 
factors . 

GM(70) 

U . 

SOLSYS 

Array  of  planetary  gravitational  con- 
stants, in  m3/sec  . 

NS 

SUX 

Identification  number  of  swingby  planet. 

NT 

SUX 

Identification  number  of  target  planet. 

00(70) 

U 

ITER  AT 

Array  of  iterator  independent-variables, 
in  external  units. 

APL(2,  70) 

1 

u 

SOLSYS 

Array  of  planet  names. 

BBB  (35) 

s 

ITER2 

Array  of  independent-variable  pertur- 
bation step  sizes. 

DEG 

u 

REAL8 

Conversion  factor  between  radians  and 
degrees;  number  of  degrees  in  one 
radian. 

OOO 

su 

REAL8 

Hyperbolic  excess  speed  at  arrival 
of  swingby  planet,  in  AU/tau. 
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SWING  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

BURN 

SX 

Logical  flag  indicating  whether  swingby 
is  powered  or  unpowered. 

CNIX(5) 

SUA 

REAL8 

Inclinations  to  ecliptic  of  intermediate- 
target  orbits,  in  degrees. 

ECIX(5) 

SUA 

REAL8 

Eccentricities  of  intermediate  target 
orbits. 

GOOD 

SX 

Swingby  continuation  trajectory  iteration 
convergence  indicator. 

OMEX(5) 

SUA 

REAL8 

Ascending  node  angles  of  intermediate- 
target  orbits,  in  degrees. 

QJEX 

su 

LOGIC4 

Detailed  printout  indicator. 

QMAX(35) 

SU 

ITER  2 

Array  of  upper  allowable  values  for  the 
iterator  dependent-variables. 

QMIN(35) 

s 

ITER2 

Array  of  lower  allowable  values  for  the 
iterator  dependent-variables. 

QUIT 

s 

LOGIC4 

Logical  variable,  set  in  subroutine 
SWING,  which  causes  bypass  of  last 
trajectory  printout  if  time-out  occurs 
during  swingby  continuation  analysis. 

SAIX(5) 

SUA 

1 

REAL8 

Semi-major  axes  of  intermediate-target 
orbits,  in  AU. 

SOIX(5) 

SUA 

REAL8 

Arguments  of  perihelion  of  intermediate- 
target  orbits,  in  degrees. 

TPIX(5) 

SUA 

i 

REAL8 

Times  from  reference  date  to  perihelion 
passages,  for  the  intermediate  targets, 
in  days. 

TSUM 

u 

1 

! 

REAL8 

Time  elapsed  since  primary-target 
swingby  and  current  swingby,  in  days. 

CONSP 

u 

REAL8 

Speed  conversion  factor,  from  AU/tau 
to  meters/second. 

I 
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Variable 

Use 

Common 

Description 

CONTM 

U 

REAL8 

Time  conversion  factor,  tau  to  days. 

INDEX 

ux 

Index  of  swingby  continuation  trajectories 
requested  for  the  current  case. 

NTARG 

s 

INTGR4 

Identification  number  of  the  swingby  leg 
target  body. 

RPERI 

sux 

Periapse  distance  of  planetocentric  swing- 
by trajectory,  in  meters. 

TBASE 

SUA 

REAL8 

Julian  date  at  the  current  swingby  planet 
(less  2400000). 

TLEG2 

SUX 

Flight  time  of  the  current  swingby  leg, 
in  days. 

TRACK 

SU 

LOGIC4 

Indicator  for  trajectory  long  block  print- 
out (at  each  computation  step). 

EMU  ODD 

u 

REAL8 

Gravitational  constant  of  the  primary 
target,  in  m3/sec  . 

EMUODX(5) 

SUA 

REAL8 

Gravitational  constants  of  intermediate 
targets,  in  m3/sec3  (not  used  at  present). 

INTERX 

SUA 

INTGR4 

Index  used  in  subroutine  EFM  which  in- 
dicates which  array  locations  are 
applicable  in  selecting  orbital  elements. 

! N LEAVE 

S 

INTGR4 

Identification  number  of  the  current 
swingby  planet. 

NSWING 

UX 

Integer  flag  defining  the  type  of  swingby 
mission.  See  Inputs  for  the  various 
options. 

PVELOC  (3) 

SUA 

REAL8 

Velocity  of  the  swingby  planet  at  the  time 
of  encounter,  in  AU/tau. 

RADIUS  (70) 

U 

SOLSYS 

Array  of  planetary-body  radii,  in  meters. 

* 
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SWING  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

RADODD 

U 

REAL  8 

Radius  of  primary  target,  in  meters. 

RADODX 

(5) 

SUA 

REAL8 

Radii  of  intermediate  targets,  in  meters 
(not  used  at  present). 

TANDEM 

U 

LOGIC4 

Indicator  for  multiple  swingbys  along  a 
single  trajectory. 

TDATEX 

SUA 

REAL8 

Reference  Julian  date  (minus  2400000). 

TDATE2 

U 

REAL8 

Julian  date  at  the  primary  target,  in 
days  (less  2400000). 

XSTATE 
(7)  ; 

1 

i 

SUXA 

Spacecraft  position  and  velocity  vectors 
and  time  at  departure  of  the  swingby 
planet,  in  AU,  AU/tau  and  tau, 
respectively. 

YSTATE 

(7) 

SUX 

Spacecraft  position,  velocity  and  time  at 
the  end  of  the  trajectory  segment,  in  AU, 
AU/tau  and  tau,  respectively. 

YSWING 

(3,10) 

u 

REAL8 

Array  of  velocity  vectors  consisting  of 
initial  velocity  guesses  of  a given  post- 
swingby  trajectory  segment,  in  AU/tau. 

ZSTATE 

(7) 

SUA 

REAL8 

Same  as  YSTATE. 
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Name: 


SWSTO 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 

SOLAR 

INTGR4,  LOGIC4,  REAL8 
None 


TAP 


Discussion:  SWSTO  stands  for  ’’switch  store".  The  basic  function  of  the  sub- 
routine is  to  store,  for  later  printout  at  the  finish  of  the  final  trajectory  of  each 
case,  specific  quantities  at  each  thrust  switching  point,  including  the  beginning 
and  end  points  of  each  trajectory  segment.  The  subroutine  also  provides  the 
vital  function  of  monitoring  the  constancy  of  the  variational  hamiltonian  along 
the  trajectory.  If  the  variational  hamiltonian  is  not  sufficiently  constant,  as 
determined  by  certain  criteria  within  the  routine,  then  the  routine  prints  con- 
spicuous messages  to  alert  the  program  user  that  either  (1)  the  computation 
step  size  is  too  large  for  the  trajectory  at  hand,  or,  (2)  the  changes  made  to 
the  program  recently  are  erroneous,  since  they  did  not  yield  the  necessary  con- 
dition of  a constant  variational  hamiltonian.  The  latter  possibility  occurs  fre- 
quently when  complicated  changes  are  made  to  the  program,  and  the  programmer's 
job  remains  unfinished  so  long  as  the  program  spits  the  BAD  HAMILTONIAN 
message  back  at  him. 

The  variational  hamiltonian  h^  is  computed  as  follows.  At  the  end  of 
(or  during)  a coast  phase,  the  total  variational  hamiltonian  is  simply  computed 
as 

■ • * • 

h = - A • R+  A • R 

v coast 


The  above  quantity  is  computed  in  any  case,  since  it  forms  a component  of  the 
total  variational  hamiltonian  at  the  end  of  (or  during)  a thrust  phase,  in  which 
case 
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h 

v 


= h t+SP(A 

v coast  v. 


) + A d + A 
’ s r 


is  the  total  variational  hamiltonian.  Once  computed,  the  value  of  the  variational 
hamiltonian  is  stored  in  the  next  available  location  of  a storage  array,  which  con- 
tains the  values  of  the  variational  hamiltonian  at  thrust  switching  points  and  at  the 
beginning  and  end  points  of  trajectory  segments.  The  time  is  also  stored. 

The  constancy  of  the  variational  hamiltonian  is  then  tested  as  follows. 

If  the  absolute  value  of  (the  current  time  minus  the  previous  time  stored)  is  less 
than  10  tau,  then  skip  the  test.  The  test  is  thus  avoided  at  junctions  of  tra- 
jectory segments,  since  the  variational  hamiltonian  may  validly  be  discontinuous 
at  such  points.  Otherwise,  let  the  test  quantity  be  computed  as  the  absolute  value 

of  (the  current  h^  minus  the  previously-stored  h ) divided  by  a normalizing 

-4 

factor.  Then,  if  the  test  quantity  is  greater  than  2 x 10  (an  arbitrary  value 
picked  from  experience,  which  avoids  excessive  message  printouts),  print  the 
conspicuous  warning  message  BAD  HAMILTONIAN. 

Messages  and  printouts:  The  storage  arrays  contain  fifty  locations.  Should  the 
storage  array  index  exceed  fifty,  the  message 


50  THRUST  SWITCHING  POINTS  EXCEEDED 


is  printed  on  units  6 and  12,  the  master  error  indicator  is  set,  and  the  routine 
is  exited. 

Should  the  variational  hamiltonian  be  deemed  sufficiently  non-constant,  as 
determined  by  the  test  discussed  in  the  preceding  section,  then  the  following 
message  is  printed  on  unit  6: 

BAD  HAMILTONIAN 

WARNING  NO.  _n_ 

AT  TIME  ti-l  , THE  HAMILTONIAN  IS  hj-l 

a.  U 

AT  TIME  __i , THE  HAMILTONIAN  IS  i 


where  n indicates  the  number  of  bad  hamiltonian  occurrences  during  the  current 
computer  run,  t.  and  t.  are  the  previously-stored  time  and  the  current  time 
along  the  trajectory,  in  days,  and  h.  and  h.  are  the  corresponding  hamiltonian 
values,  which  will  not  be  equal.  Concurrently,  the  message 

BAD  HAMILTONIAN.  NORMALIZED  ERROR  g test  IN  At  DAYS. 

is  written  on  unit  12,  where  "test"  is  the  test  quantity  discussed  in  the  preceding 

section  and  At  is  t - t.  in  days.  This  unit  12  message  will  be  printed  out 

i i-l 

a maximum  of  three  times,  and  the  unit  6 message  will  be  printed  a maximum  of 
MAXHAM  times.  When  the  maximum  number  of  messages  on  unit  6 is  reached,  the 

following  is  also  printed: 

ABOVE  WARNING  IS  LAST  WARNING  FOR  THIS  RUN 


SWSTO  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

X(50) 

U 

REAL8 

Array  of  trajectory  integrated  variables. 

FT 

U 

REAL8 

Thrust  acceleration  g,  in  AU/tau^. 

RC 

U 

REAL8 

3 

Cube  of  spacecraft  solar  distance,  r , 
in  AU3. 

RS 

su 

REA  L8 

2 

Square  of  spacecraft  solar  distance,  r , 
in  AU2. 

RT 

su 

REAL8 

Spacecraft  solar  distance,  r in  AU. 

AVJ 

u 

REAL8 

Inverse  of  spacecraft  jet  exhaust 
speed,  in  EMOS-^. 

ETH(3) 

u 

REAL8 

| 

Thrust  unit  vector. 

HSW(50) 

su 

REAL8 

Stored  values  of  the  variational 
hamiltonian,  h . 
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SWSTQ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

ISW(50) 

S 

INTGR4 

Stored  values  of  indicator  for  thrust 
phase  or  coast  phase. 

NSW 

su 

INTGR4 

Counter  or  index  for  storage  arrays, 
incremented  by  one  each  time  SWSTO 
is  called. 

PLC 

u 

REAL8 

Dot  product  of  primer  vector  and  unit 
thrust  vector,  A • e . 

TSW(50) 

su 

REAL8 

Stored  values  of  time,  t.,  in  tau. 

i 

POWR 

u 

REAL8 

Spacecraft  power  function,  yq. 

ALTAU 

u 

REAL8 

Propulsion-time  adjoint  variable,  A.  . 

COAST 

u 

LOGIC  4 

Indicator  for  thrust  phase  or  coast  phase. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

ERROR 

s 

LOGIC4 

Program  master  error  indicator. 

ETHSW 

(3,50) 

s 

REAL8 

Stored  values  of  thrust  unit  vector. 

DENSIT 

u 

REAL8 

Density  function  associated  with  the 
power  law. 

JUMPED 

u 

LOGIC4 

Indicator  for  discontinuous  primer 
derivative,  set  in  subroutine  TAP. 

MAXHAM 

1 

u 

i 

INTGR4 

Maximum  number  of  times  program  will 
check  hamlltonian  constancy. 
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Name: 


SWTRAJ 


Calling  Argument:  ERRORX  for  SWTRAJ; 

INIDUM,  JNIDUM,  UNIDUM  for  SWPRNT 

Referenced  Sub-programs : EFM,  TAP,  T A PSET  for  SWTRAJ; 

None  for  SWPRNT 

R ef  ere  need  C om  m ons : INTGR4,  ITER2,  REAL8 

Entry  Points:  SWPRNT 

Referencing  Sub-programs:  MINMX3,  SWING  for  SWTRAJ; 

MINMX3  for  SWPRNT 

Discussion:  SWTRAJ  is  a contraction  of  "swingby  trajectory’1  and  has  the  purpose 
of  generating  a post-swingby  trajectory  segment  (via  a call  to  TAP)  and  producing 
two-point  boundary-value  problem  end  conditions  q^,  q^*  an<^  ^or  ^e 

MINMX3-  iterator;  SWTRAJ  thus  produces  the  mapping  X -*  Y for  the  iterator. 
Entry  point  SWPRNT  is  a dummy  print  subroutine  whose  presence  is  required 
by  MINMX3. 

The  iterator  independent -variables  for  the  post-swingby  targeting  problem, 
which  allow  the  iterator  to  control  the  ballistic  trajectory  segment  from  the  swing- 
by planet  to  the  post-swingby  target  for  a given  phase  of  a total  mission,  are  de- 
noted b , b , b , and  b and  consist  of  the  following: 

X 2 3 4 

\ f 

) V 

where  R = (x  , v , z ) is  the  spacecraft’s  (total)  heliocentric  departure  velocity 
o o o 0 

at  the  swingby  planet  and  At  is  the  flight  time  of  the  post-swingby  trajectory 
segment. 
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SWTRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


r 

Variable 

Use 

Common 

Description 

X(50) 

SU 

REAL8 

Array  of  trajectory  dependent -variables, 
as  described  in  subroutine  RKSTEP. 

000 

U 

REAL8 

Swingby  arrival  hyperbolic  excess  speed, 

v . , in  EMOS. 

®A 

TMAX 

U 

REAL8 

Desired  time  at  end  of  trajectory-segment, 

t , in  tau. 

max 

TSUM 

U 

REAL8 

Time  elapsed  since  primary-target  swing- 
by and  current  swingby,  in  days. 

CONTM 

U 

REAL8 

Time  conversion  factor,  tau  to  days. 

NTARG 

A 

INTGR4 

Post-swingby  target  planet  selector. 

TBASE 

U 

REAL8 

Julian  date  at  time  of  swingby  (less 
2400000). 

ERRORX 

SX 

Error  indicator. 

INIDUM 

1 

AX 

Dummy  argument. 

INTERX 

A 

INTGR4 

Index  which  selects  the  orbital  elements 
of  the  post-swingby  target  when  it  is 
not  a major  planet. 

JNIDUM 

X 

Dummy  argument. 

NLEAVE 

A 

INTGR4 

Swingby  planet  selector. 

PVEL0C(3) 

U 

REAL8 

Swingby  planet's  velocity  at  swingby 

time,  £ , in  EMOS. 
s 

UNIDUM 

AX 

Dummy  argument;  Universal  Dummy 
Variable. 

ZSTATE(7) 

S 

REAL8 

Spacecraft  position  R,  velocity  R,  and 
the  time  at  the  end  of  the  trajectory- 
segment,  in  AU,  EMOS,  and  tau, 
respectively. 
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Name: 


TAP 


Calling  Argument:  None 

Referenced  Sub-programs:  CDERIV,  CHECK,  CHKINT,  CONVRT,  DER1V,  FUNCT, 

SOLAR,  SPRINT,  STEP,  SWSTO,  THANG,  THANGD, 

TRAVEL,  VADD,  VMAG,  VSCAL 


Referenced  Commons:  EXTREM,  INTGR4,  ITERAT,  LOGIC4,  REAL8 


Entry  Points:  None 

Referencing  Sub-programs:  MORE,  SWTRAJ,  TRAJ 


Discussion:  Subroutine  TAP  generates  a single  trajectory-segment,  corresponding  to 
the  flight  of  the  spacecraft  from  a time  associated  with  one  celestial  body  to  a time 
associated  with  the  next  celestial  body  in  the  mission  sequence.  After  targeting-con- 
vergence is  achieved,  the  endpoints  of  the  trajectory  segment  match  the  positions  of 
the  two  celestial  bodies  associated  with  the  segment;  these  may  be  the  launch  planet, 
the  primary  target,  intermediate  targets,  or  post-swingby  targets. 

The  heart  of  the  subroutine  consists  of  the  two  adjacent  statements  where  sub- 
routines STEP  and  CHECK  are  referenced.  STEP  performs  a computation  step,  and 
CHECK  checks  for  remarkable  points  within  that  computation  step  and  supervises 
iterations  to  isolate  the  remarkable  points  (such  as  thrust  switch  points  and  critical 
solar  distance). 


Approximately  the  first  half  of  the  subroutine  (up  to  where  CHKINT  is  referenced) 
consists  of  initialization  prior  to  the  first  computation  step  of  the  trajectory  segment. 
Many  logical- indicators  which  do  not  vary  over  the  segment  are  initialized  here.  The 
quantities  which  are  computed  correspond  to  the  starting  point  of  the  trajectory  segment. 
These  consist  of  the  primer  magnitude, 


x = y A • A , 

the  spacecraft  solar  distance, 

r = y R • R . 
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the  time-derivative  of  the  primer  magnitude, 


X = y A ‘ A /A  when  X ^ 0, 


X = J A • A when  X = 0. 


The  bulk  of  the  initialization  computations  are  concerned  with  the  computation  of  the 
variational  Hamiltonian  h , which  is  given  by 


Vha[J^<A'  Vo  V+V  + At] 


- (A  • R)  - A • R , 

r 

and  also  of  the  thrust  switch  function  a (corresponding  to  the  start  of  the  trajectory 
segment),  which  is  given  by 


V 

a = a* 

gyq 

where 

a*  = £2£(A.  e -— X ) + X d + X . 
v t c V s T 

The  computation  of  a follows  the  more  detailed  discussion  found  in  the  documenta- 
tion of  subroutine  FUNCT.  The  degradation  factor  is  also  initialized, 

* 

-s/rH 
q = e a. 

An  inherent  singularity  of  the  optimal  rocket  flight  problem  is  characterized 
by  an  extremely  high  thrust  rotation  rate  and  occurs  whenever  the  primer  vector 
passes  relatively  close  to  the  origin  of  primer-space  (A  = 0)  during  a thrust  phase. 

The  difficulty  associated  with  the  primer— origin  singularity  is  lessened  by  con— 
tinously  cutting  down  the  computation  step  size  A)3  as  the  primer  origin  is  approached. 
This  is  accomplished  by  the  formula, 


1024 


where  the  quantity 


A0+  = A/8"/t 
w 

t is  greater  thanunity  and  is  given  by 
w 


3 


1 2 
J * 


Whenever  the  spacecraft  passes  the  critical  solar  distance  r when  the  solar 
power  law  option  being  simulated  corresponds  to  letting  the  power  factor  y 0 due 
to  solar  cell  overheating,  the  primer  derivative  A is  discontinous  and  is  jumped 
according  to  the  formula, 


A = A"  + 


X +X  /r 

,r  -Vf-j*. 

R -R 
1 c c 


in  which  subscript  c corresponds  to  the  critical  solar  distance  (y*  0), 

In  simulations  of  trajectories  which  are  all-ballistic,  the  program  is  capable 
of  simulating  a single  deep-space  burn,  or  impulsive  velocity-change,  at  any  point 
prior  to  arrival  at  the  primary  target.  The  three  components  of  the  incremental 
velocity  AV  are  independent  variables  of  the  boundary  value  problem,  such  that, 
at  a specified  time,  the  spacecraft  velocity  is  incremented: 

R+  = R*  + AV, 


where  AV  is  produced  by  the  MINMX3  iterator  and 

Av  = |AV|  = J AV  • AV 


is  computed  using  subroutine  VMAG. 

Messages  and  printouts:  Whenever  the  mass  ratio  V approaches  zero  as  the  space- 
craft thrusts  along  the  trajectory  (a  condition  which  is  prone  to  occur  especially  when 
simulating  nuclear  electric  propulsion),  the  program  declares  an  error  condition  and 
exits  the  subroutine  after  printing  the  message  on  units  6 and  12: 
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MASS  RATIO  = (V±  VANISHING  NEAR  TIME  = (t)  DAYS 

where  t is  the  elapsed  time  since  the  start  of  the  trajectory,  in  days.  The  message 
may  occur  several  times  before  the  iterator  finally  terminates  the  iteration  sequence. 
If  the  analyst  believes  the  solution  he  seeks  actually  exists,  he  should  try  different 
trajectory  starting  values;  otherwise,  it  is  possible  that  the  solution  required  does 
not  exist  as  a physical  possibility. 

The  remainder  of  messages  from  subroutine  TAP  are  concerned  with  the 
deep  space  burn  option.  When  this  option  is  invoked,  the  following  is  printed  during 
the  final,  case-summary  trajectory  at  the  actual  moment  the  deep  space  burn  velocity 
increment  is  added  to  the  spacecraft  velocity;  on  unit  6, 

DEEP  SPACE  BURN  (Av)  METERS/SECOND  AT  (t)  DAYS 

where  Av  is  the  magnitude  of  the  deep  space  burn,  in  meters  per  second,  and  t is 
the  elapsed  time  since  the  start  of  the  trajectory,  in  days.  On  unit  12  is  printed, 

DEEP  SPACE  BURN  (Av)  M/S 

Should  the  integration-stopping  index  JCMAX  be  greater  than  one  (which  should  not 
occur  on  an  all-ballistic  trajectory  segment),  an  error  condition  is  declared  and  the 
subroutine  is  exited  after  the  message  is  printed  on  unit  6, 

ERROR.  JCMAX.  NE.l  IN  *TDV*  OPTION.  (JCMAX)  (tr)  (V  (tmax) 

* 

where  t'  is  the  elapsed  time  since  the  start  of  the  trajectory,  t^  is  the  time  of  the 
deep  space  burn,  and  t is  the  trajectory-segment  endpoint  time,  all  in  units  of 

ITlcLX 

tau. 
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TAP  EXTERNAL  VARIABLES  TABLE 


Use 

Common 

Description 

B(2,  30) 

S 

EXTREM 

Array  of  monitored  functions. 

0(70) 

SUA 

ITERAT 

Array  of  iterator  independent-variables; 
0(21)  is  the  thrust  angle,  when  it  is 
held  constant,  in  radians. 

R(2) 

SUA 

REAL8 

Spacecraft  solar  distance,  r,  at  start  of 
computation  step  (R(l))  and  instantaneous 
(R(2)),  in  AU. 

X(50) 

SUA 

REAL8 

Array  of  trajectory  dependent -variables, 
as  described  in  subroutine  RKSTEP. 

AN 

U 

REAL8 

Trajectory-integration  exponent  in  re- 
gularization formula. 

FT 

U 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

JC 

s 

INTGR4 

Counter  corresponding  to  the  J Cth 
specified  time  function  value  (i.e. , the 
time)  isolated,  or  to  be  isolated,  thus 
far  on  the  current  trajectory  segment. 
Attains  values  greater  than  one  when 
imposed  coast  phases  are  invoked. 

JJ 

s 

INTGR4 

Thrust  switch  point  or  critical  solar 
distance  indicator. 

KF 

SUA 

INTGR4 

End  of  trajectory-segment  indicator. 

PP(2) 

SU 

REAL8 

Primer  vector  magnitude,  A,  at  start 
of  computation  step  (PP(1))  and  instan- 
taneous (PP(2)). 

RC 

SU 

REAL8 

3 • 

Cube  of  spacecraft  solar  distance,  r , in 
AU3. 

RT 

SUA 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 

SX(50) 

SU 

REAL8 

Array  of  trajectory  integrated  variables, 
corresponding  to  the  start  of  the  current 
computation  step. 
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TAP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

AVJ 

U 

REAL8 

Inverse  of  jet  exhaust  speed,  l/c,  in 
EMOS-1. 

A1S 

U 

REAL8 

Leading  power -law  coefficient,  a . 

0 

ETH(3) 

SUA 

REAL8 

Thrust  unit  vector,  e^. 

HAM 

SU 

REAL8 

Variational  Hamiltonian,  h . 

V 

PLC 

SU 

REAL8 

First  component  of  thrust  switch  function, 
Primer  magnitude,  X. 

PMN 

SUA 

REAL8 

R1N 

SU 

REAL8 

Conversion  factor  from  generalized  de- 
rivatives to  time  derivatives,  rn,  in 
AUn. 

R2N 

S 

REAL8 

2n 
r . 

TDV 

u 

REAL8 . 

Time  of  deep  space  burn,  in  days. 

EDGE 

s 

LOGIC4 

Indicator  for  solar  arrays  being  oriented 
edgewise  to  the  sun;  used  only  if  power 
degradation  is  simulated. 

ETHD(3) 

u 

REAL8 

• 

Thrust  unit  vector  time-derivative,  e , 
in  tau“l. 

HEAT 

u 

LOGIC4 

Indicator  for  maintaining  solar  panels 
normal  to  sun  at  all  times,  including 
during  high  solar  proximity. 

MODE 

u 

INTGR4 

Power  variation  option  selector. 

NPH1 

SU 

INTGR4 

Number  of  fixed  thrust  cone  angles  per- 
mitted. (Currently  limited  to  one). 

PLUS 

s 

LOGIC4 

Indicator  for  determining  appropriate 
region  in  two-dimensional  simulations, 
as  described  in  subroutine  THANGD. 
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TAP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

POWR 

U 

REAL8 

Power  ratio,  yq. 

QJEX 

U 

LOGIC4 

Detailed  printout  indicator. 

SWIT 

su 

REAL8 

O+o  (See  subroutine  FUNCT  discussion). 
12 

TMAX 

u 

REAL8 

Transfer  time.  At,  in  tau. 

WIRL 

u 

LOGIC4 

Primer-origin-proximity  step  size  con- 
trol logical  indicator. 

ALTAU 

u 

REAL8 

Propuls  ion -time  adjoint  variable,  . 

ANGLE 

SUA 

REAL8 

Travel  angle,  0t,  in  radians. 

COAST 

SU 

LOGIC4 

Indicator  for  coast  or  thrust  phase. 

CONSP 

U 

REAL8 

Speed  conversion  factor,  from  AU/tau  to 
meters/ second. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

COPHI 

S 

REAL8 

Cosine  of  fixed  thrust  angle,  cos  0fixe{j. 

DBETA 

SUA 

REAL8 

Computation  step  size,  A$  (increment 
of  the  trajectory  independent  variable). 

■ 

DPOWR 

u 

REAL8 

q d y/d r. 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

ERROR 

S 

LOGIC4 

Program  master  error  indicator. 

FIRST 

S 

LOGIC4 

Indicator  for  being  at  initial  time  of 
current  trajectory  segment. 

JCMAX 

u 

INTGR4 

Maximum  value  of  JC,  corresponding  to 
the  end  of  the  current  trajectory  segment. 

PCURV 

S 

LOGIC4 

Indicator  for  condition  in  which  solar 
panels  are  In  position  to  receive  maximum 
power,  when  degradation  option  is  invoked. 
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TAP  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

PMDOT 

SUA 

REAL8 

Primer-magnitude  time  derivative,  X . 

SIPHI 

s 

REAL8 

Sine  of  fixed-thrust-angle,  sin 

fixed 

STEP1 

u 

REAL8 

Thrust-phase  computation  step-size,  Au. 

STEP2 

u 

REAL8 

Coast-phase  computation  step-size*  A/J. 

TDELV 

su 

REAL8 

Time  of  deep  space  velocity  impulse,  in 
tau. 

TRACK 

u 

LOGIC4 

Indicator  for  trajectory  long  block  print- 
out (at  each  computation  step). 

BALLIS 

s 

LOGIC4 

Indicator  that  trajectory  segment  is  all- 
ballistic  (pure  coast). 

DELTAV 

su 

REAL8 

Magnitude  of  deep  space  velocity  impulse, 
in  m/sec. 

DENSIT 

. u 

REAL8 

-2 

Power  density,  d,  in  AU  . 

DPDMAX 

u 

REAL8 

Absolute  maximum  of  3y/dd,  used  in 
computation  of  f . 

DPOWDD 

u 

REAL8 

q a2y/*d2. 

DWITCH 

(2) 

s 

REAL8 

O1,  defined  similarly  to  R (2). 

FIXTAU 

u 

LOGIC4 

% 

Indicator  for  non-zero  X . 

T 

FIXTHR 

u 

LOGIC4 

Indicator  for  fixed  thrust-angle. 

JUMPED 

s 

LOGIC4 

Indicator  for  discontinuous  primer  de-  j 

rivative,  set  in  subroutine  TAP. 

NPHI20 

su 

INTGR4 

i 

Array  location  value  corresponding  to 
the  current  value  of  the  fixed  thrust  i 

! cone  angle.  Currently,  only  one  value 
for  fixed  thrust  angle  is  allowed  along 
a given  trajectory,  and  NPHI20  is  set 
equal  to  21  in  subroutine  TAP. 

i 
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Variable 

Use 

Common 

Description 

NPRINT 

UA 

INTGR4 

Printout  amount  selection  indicator. 

NSTEP1 

su 

INTGR4 

Total  number  of  computation  steps 
associated  with  thrusting  flight,  for  the 
current  trajectory. 

NSTEP2 

su 

INTGR4 

Total  number  of  computation  steps 
associated  with  coasting  flight,  for 
the  current  trajectory. 

Q ERODE 

s 

LOGIC4 

Indicator  for  either  the  final  (summary) 
trajectory  of  a given  case  or  solar  array 
radiation  damage  degradation. 

REGION 

su 

LOGIC4 

Indicator  for  spacecraft  solar  proximity; 
demarks  two  possible  regions  in  space, 
separated  by  sphere  about  sun  of  speci- 
fied radius,  at  which  power  function  (or 
its  derivative)  has  a corner. 

RTSWIT 

u 

REAL8 

Critical  solar  distance  corresponding  to 
a special  point  in  the  solar  power  curve, 
in  AU. 

SWITCH 

(2) 

s 

REAL8 

Thrust  switch  function,  a,  defined 
similarly  to  R(2). 

TAUPOW 

u 

REAL8 

Negative  inverse  of  characteristic  de- 
gradation time,  -l/Tj,  in  tau  • 

TCHECK 

(41) 

s 

REAL8 

% 

Array  of  time  values,  isolated  by  sub- 
routine CHECK,  in  tau. 

TUDFLG 

u 

LOGIC4 

Indicator  for  two-dimensional  trajectory 
simulation  (motion  in  the  xy  plane). 
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Name: 


^RECEDING 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


page 


blank 


TAPSET  NOT  fiLMed 

SET,  TIME,  NPLAN1,  NPLAN2,  LEGADD,  SKIP 


None 


INTGR4,  LOGIC4,  REAL8 
None 


MORE,  SWTRAJ 


Discussion:  TAPSET  is  used  to  initialize  subroutine  TAP  in  preparation  for  gen- 
erating a ballistic  trajectory-segment.  The  trajectory  segment  is  maintained 
ballistic  (all  coast)  by  ensuring  that  the  thrust  switching  function  is  always  nega- 
tive, and  this  is  accomplished  by  setting  the  propulsion-time  adjoint  variable  to 
a relatively  large  negative  number, 

XT=-1°°  |x„| . 

where  A is  the  current  value  of  the  mass-ratio  adjoint  variable.  After  the  tra- 
jectory segment  has  been  generated,  TAPSET  is  again  called  and  performs  a 
restoring  operation,  in  which  altered  parameters  are  set  to  their  original  values. 

Messages  and  printouts:  If  a multiple-target  swingby  continuation  analysis  is 
attempted  which  involves  more  than  five  swingbys,  the  MOPTX  array  will  be  ex- 
ceeded, and  therefore  the  computer  run  is  terminated  after  the  following  message 
is  printed  on  units  6 and  12: 

INVALID  TRAJECTORY  EXTENSION 
MOPTX (n)  INVALID  IN  SUBROUTINE  TAPSET 
RUN  TERMINATED 

where  n is  the  number  of  attempted  swingbys. 
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TAPSET  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

X(50) 

SU 

REAL8 

Array  of  trajectory  dependent -variables, 
as  described  in  subroutine  RKSTEP. 

JC 

S 

INTGR4 

Counter  corresponding  to  the  JC™ 
specified  time-function  value  (i.e. , the 
time)  isolated  thus  far  on  the  current 
trajectory  segment. 

LEG 

SU 

INTGR4 

Counter  indicating  the  current  trajectory- 
segment. 

NSW 

SU 

INTGR4 

Counter  indicating  the  current  number  of 
thrust  switch  points  along  the  whole  tra- 
jectory; includes  trajectory-segment 
endpoints. 

SET 

UX 

Indicator  for  initialization  or  restoration. 

BETA 

SU 

REAL8 

Trajectory  independent-variable,  /?. 

SKIP 

UX 

Indicator  for  bypassing  the  restoration 
and  re-initialization  of  the  trajectory  de- 
pendent-variables, which  is  desired  for 
continuing  the  trajectory  during  multiple 
swingby  simulations. 

TIME 

UX 

Time  elapsed  between  primary-target 
passage  and  current  post-swingby  target 
intercept,  in  days. 

TMAX 

SU 

REAL8 

Time  at  the  end  of  the  current  trajectory- 
segment,  elapsed  since  the  start  of  the 
trajectory,  in  tau  (integration  stopping 
condition). 

ALTAU 

SU 

REAL8 

Propulsion-time  adjoint  variable,  X^. 

ANGLE 

SU 

REAL8 

Travel  angle,  0^,  in  radians. 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

I 
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TAPSET  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use  i 

l 

Common 

Description 

ERODE 

SU 

LOGIC  4 

Power  degradation  option  indicator. 

JCMAX 

s 

INTGR4 

Maximum  value  which  JC  may  attain, 
corresponding  to  the  end  of  the  current 
trajectory  segment. 

MOPTX(5) 

s 

INTGR4 

The  target -numbers  of  the  successive 
intermediate  targets,  and,  in  this 
routine,  also  of  the  successive  swingby 
planets  and  final  target. 

MOPT3 

SU 

INTGR4 

Planet-number  of  primary  target. 

NSPEC 

SU 

INTGR4 

Master  array  index  (and  counter)  for 
storage  arrays  associated  with  the 
Extremum  Table  of  Selected  Functions, 

XMASS(7) 

SU 

REAL8 

i 

General  mass  array;  XMASS(6)  is  the 
reference  power,  Pre£»  either  watts 

or  kilowatts. 

COMANG 

SU  1 

1 

REAL8 

Communication  angle  at  time  of  primary- 
target  intercept,  in  degrees. 

COMDIS 

SU 

REAL8 

Communication  distance  at  time  of 
primary-target  intercept,  in  AU . 

FIXTAU 

SU 

LOGIC4 

Indicator  for  non-zero  propulsion- 
time adjoint  variable,  XT  . 

LEGADD 

ux 

Number  of  whole  trajectory-segments 
(legs)  which  have  been  generated  beyond 
the  primary  target. 

LEGMAX 

SU 

INTGR4 

Current  maximum  number  of  trajectory 
segments  (legs). 

NPLAN1 

ux 

Current  swingby-planet  selector. 

NPLAN2 

ux 

. 

Current  post-swingby  target  selector. 
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TAPSET  EXTERNA !■  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

TANGLE 

SU 

REAL8 

Elapsed  ecliptic  longitude,  in  radians. 

TCHECK 

s 

REAL8 

Array  of  time  values,  each  of  which  is 

(41) 

isolated  by  subroutine  CHECK,  in 
tau. 
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Name: 


THANGD 


Calling  Argument: 

Referenced  Sub-programs: 

Referenced  Commons: 

Entry  Points: 

Referencing  Sub-programs: 

Discussion:  Entry  point  'THANG"  is  a contraction  of  "thrust  angle",  and 

"THANGD”  stands  for  "thrust  angle  derivative".  However,  it  is  actually  the 

thrust  unit  vector*  e and  its  time-derivative  e . (and  not  the  so-called  thrust 

t t 

angle,  or  thrust  cone  angle,  0)  which  are  computed  by  this  routine,  and  only 
for  the  case  in  which  0 is  constrained  to  a "fixed"  value  along  the  trajectory, 
where  0 is  the  angle  between  the  spacecraft's  radius  vector  R and  et.  When 
0 is  not  fixed,  et  lies  along  the  primer  vector  A,  and  when  0 ]s  fixed,  et 
is  computed  to  be  as  close  to  A as  the  fixed-0  constraint  permits,  the  former 
case  being  a special  case  of  the  latter,  with  the  (A:  et)  proximity  condition  being 
dictated  by  the  Maximum  Principle  of  optimal  control  theory.  The  computations 
of  this  routine  are  concerned  with  the  fixed-0  case  only.  The  thrust  unit  vector 
e is  computed  by  entry  point  THANG  and  e is  computed  by  THANGD. 

Since  e moves  in  a cone  (of  half-angle  0)  about  R,  the  closest  e 
t 1 

can  get  to  A is  when  et  lies  in  the  instantaneous  plane  defined  by  R and  A. 
The  unit  thrust  vector  may  therefore  be  expressed  as 


R,  RD,  P,  PD,  RM  for  THANGD 
R,  P,  RM  for  THANG 

UNITD  for  THANGD 
None  for  THANG 

LOGIC4,  REAL8 

THANG 

CDERIV,  FUNCT,  TAP  for  THANGD 
FUNCT,  TAP  for  THANG 


e 


t 


COS  0 + 


r x (Ax  m sln# 
|R  x (Ax  R)  | 


♦The  bar(”)  is  dropped  from  e^  in  this  subroutine  description. 
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Letting  (defining) 


and 


R = 


R 

IrI 


R x (Ax  R) 

|r  x (Ax  R)  | 

A 

where  T is  simply  a unit  vector  orthogonal  to  R in  the  (R,  A)  plane,  then 

A A 

et  = Rcos  0 + T sin0 

which  expresses  e^  in  terms  of  orthonormal  vectors  in  the  (R,  A)  plane.  This 
may  be  rewritten 


A A 

R + T tan  0 

A A 

| R + T tan  0 | 


if  0 ^ lt/2  ; 


T+R/tan0 

et  “ ; if  0 r 0 or  V . 


T + R/tan  0 | 


The  derivative  e ^ is  then  computed  as  follows.  Defining 


A A 


then 
and  if 

then 
in  which 

and 


V 


R + T tan  0 
|r  + T tan0  I 


e = Q - (e  • Q ) e 
t ^1  v t ^1;  t 


_ T + R /tan  0 
2 |t  + R/tan  0 | 


e = Q - (e  • Q ) e 
t ^2  y t **2  t 


T = Q3  - (T  • Q3)  T 


R x (A  x R)  + R x (A  x R)  + R x (Ax  R) 

Qo  - 

|r  x (Ax  R)  I 
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The  straightforward  differentiations  involved  above  make  use  of  the  fact  that 


cos  0 = -7 — 2 

|R+  Ttan  0 | 

and 

sin  0 = — 7 

|t  + R/tan  0 | 

are  constants.  When  the  simulation  is  three  dimensional,  the  foregoing  ex- 
pressions for  et  and  et  are  used  to  generate  these  two  vectors,  which  are 
output  from  the  subroutine. 

When  the  simulation  is  two  dimensional,  motion  is  assumed  to  be  in  the 
xy  plane,  and  the  analysis  is  simplified  as  follows: 

A A 

e^  = R cos  0 + T sin  0 

where  T is  a vector  orthonormal  to  R in  the  xy  plane  and  is  given  by 


when  the  logical  indicator  PLUS  is  true  and 


when  PLUS  is  false,  where  r = |r(  . The  logical  indicator  PLUS  is  required  in 
two  dimensional  simulations  because  the  thrust  vector  e^_  lies  at  one  of  two 
discrete  positions  having  an  angle  0 with  respect  to  R,  and  e^  "flips  dis- 
continuous ly  from  one  position  to  the  other  as  A sweeps  past  ± R;  however, 
this  e^  switch  point  must  be  found  by  iteration,  and  PLUS  must  retain  its  sense 
until  the  iteration  is  converged,  at  which  time  the  sense  of  PLUS  is  reversed. 
For  computational  purposes,  define  q = 1 if  PLUS  is  true  and  q = - 1 if  PLUS 
is  false,  where  the  sense  of  PLUS  (which  determines  the  position  of  efc)  is 
determined  (by  subroutines  CHECK  and  CDERIV)  by  examining  the  position  of 


1059 


THANGD-3 


A with  respect  to  R,  which  is  accomplished  by  considering  the  sign  of 

R x A=  xX  - yX  . 
y x 

Thus  q = 1 when  in  the  region  where  xX  - yX  >0  and  q = - 1 when  in  the 

y x 

region  xX  - yX  <0,  and  the  iteration  mentioned  above  is  to  isolate  the 

y X 

boundary  between  these  two  regions.  Therefore,  the  above  two  expressions  for 

A 

T may  be  combined  as 

H (' 

Then  letting  Y be  defined  as 

Y = ( r ) = ~ (xx  + yy)/r4 

and 

C . = COS  0 

0 

S . = sin  0 

0 

the  computation  of  e ^ in  two  dimensions  is  obtained  by  straightforward 
differentiation: 

e\x=(x  Vqy  V/r  + (XVqyV  Y 

qty=(yC0+qXS0,/r  + (yC0+qxS0,Y 

« 

e =0  (not  computed) . 

vZ 
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Variable 

Use 

Common 

Description 

P(3) 

UX 

Primer  vector,  A . 

R(3) 

UX 

Spacecraft  position  vector,  R,  in  AU. 

PD  (3) 

UX 

Primer  derivative,  A. 

RD(3) 

UX 

Position  derivative,  R , in  AU/tau. 

RM 

UX 

Position  magnitude,  r = |r|  , in  AU. 

ETH(3) 

SU 

REAL8 

Thrust  unit  vector,  e^. 

ETHD(3) 

SA 

REAL8 

Thrust  unit  vector  derivative,  e , in 
-1  t 

tau  . 

PLUS 

u 

LOGIC4 

Logical  indicator  for  determining 
appropriate  region  (of  two  possible 
solutions)  in  two  dimensional 
simulations. 

COPHI 

1 

u 

REAL8 

Cosine  of  fixed  thrust  angle,  C^  “ cos  0 . 

SIPHI 

u 

REAL8 

Sine  of  fixed  thrust  angle,  S^  = sin  0 . 

TUDFLG 

u 

LOGIC4 

Logical  indicator  for  two  dimensional 
trajectory  simulation. 
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Name: 


TINT  OK 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


LOGIC 

FINISH,  REMTIM 

INTGR4,  ITER2,  LOGIC4,  REAL8 

None 

INPUT,  MAIN,  MINMX3 


Discussion:  TIKTOK  monitors  the  CPU  and  I/O  machine  time  remaining  re- 
garding the  current  computer  run,  by  making  use  of  the  GSFC/lBM  subroutine 
REMTIM,  and  terminates  the  run  after  calling  subroutine  FINISH  when  a machine 
time-out  is  impending. 

Messages  and  Printouts:  When  a machine  time-out  is  impending  for  a given 
computer  run,  the  following  is  output  on  unit  6: 


MAX  type  TIME 

ni  TRAJECTORIES  WITHOUT  PARTIAL  DERIVATIVES  AND  _JjL_ 
TRAJECTORIES  WITH  PARTIAL  DERIVATIVES  REQUIRED  FOR  THIS  CASE. 

followed  by  a detailed  printout  of  the  "last"  (most  recent)  trajectory  which  the 
Iterator  was  using  when  the  time-out  condition  occurred.  In  the  above,  type 
is  either  CPU  or  I/O,  depending  on  which  type  of  IBM  machine  time  is  about 
to  expire,  and  n and  n are  trajectory-counters  output  from  the  MINMX3 
iterator.  The  detailed  printout  of  the  last  trajectory  is  followed  by 


END  OF  RUN 

ELAPSED  CPU  TIME  = mi  MINUTES 

ELAPSED  I/O  TIME  = m2  MINUTES 
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where  m and  m are  the  elapsed  CPU  and  I/O  times,  respectively,  computed 
internally  by  the  program. 

Concurrently,  the  following  is  output  on  unit  12: 
ni  TRAJECTORIES  WITHOUT  AND  °2  WITH  PARTIALS 
where  n and  n are  defined  above,  and 
MAX  type  TIME  m-l  °F  m2  MINUTES 

where  ''type",  m , and  m are  defined  above. 

X z 

The  subroutine  also  prints  put  on  unit  6,  at  the  beginning  of  each  case, 
the  CPU  and  I/O  times  remaining  for  the  given  computer  run: 

CASE  n TIME  TO  GO  CPU  J1  I/O  J2  SEC 

where  n is  the  case  number,  and  j and  j are  the  remaining  CPU  and  I/O 

X c* 

times  in  seconds. 


TIKTOK  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(35) 

S 

ITER2 

Iterator  independent  variable  array. 

GAP 

S 

REAL8 

Propulsion-corner  proximity  tolerance - 
interval,  Act  . 

ITF 

U 

INTGR4 

Estimated  time  remaining  to  halt 
computer  run  with  full  printout,  in 
case  of  proximity  to  maximum 
machine  time,  in  seconds. 

LXX 

u 

INTGR4 

Number  of  iterator  independent  variables. 
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TIKTOK  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

QUIT 

U 

LOGIC4 

Logical  variable,  set  in  subroutine 
SWING,  which  causes  bypass  of  last 
trajectory  printout  if  time-out  occurs 
during  swingby  continuation  analysis. 

BNOMX 

(35) 

U 

ITER2 

Iterator  independent  variable  array 
containing  saved  values  corresponding 
to  the  most  recently  executed  nominal 
trajectory. 

ERROR 

s 

LOGIC  4 

Program  master  error  indicator. 

JHUNG 

s 

INTGR4 

Indicator  for  controlling  the  two  addi- 
tional cases  which  attempt  to  avoid  the 
propulsion-time  corner (s). 

KOUNT 

su 

INTGR4 

Case  counter. 

LOGIC 

1 ux 

Master  control  indicator  for  this  sub- 
routine. See  comments  displayed  at 
top  of  source-listing. 

MAJOR 

u 

INTGR4 

Total  number  of  nominal  trajectories 
generated  during  the  current  case. 

CONVRG 

s 

LOGIC4 

i 

Indicator  for  trajectory  convergence 
(all  two-point  boundary  value  problem 
conditions  satisfied). 

MAJORS 

u 

INTGR4 

Total  number  of  nominal  plus  search 
trajectories  generated  during  the 
current  case. 
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Name: 


TRAJ 


Calling  Argument: 

Referenced  Sub-programs: 

Referenced  Commons: 

Entry  Points: 

Referencing  Sub-programs: 

Discussion:  TRAJ  is  the  software  package  called  primarily  by  the  MINMX3  iterator 
(in  which  it  is  named  PD5)  which  produces  the  dependent-variable  values  of  the 
electric  propulsion  two-point  boundary  value  problem  given  the  independent -variable 
values. 

Subroutine  TRAJ  employs  subroutine  TAP  to  generate  the  required  trajectory 
segments  between  celestial  bodies;  on  each  trajectory  segment,  the  time  X(17),  which 
is  expressed  in  tau,  advances  from  its  current  value  (at  the  start  of  the  segment)  by 
an  amount  TMAX  = TCHECK  (JCMAX).  When  imposed  coast  phases  are  invoked, 
appropriate  values  for  the  coast-phase  start  and  end  times  are  loaded  into  the  lower 
elements  of  the  TCHECK  array,  TCHECK(JC)  for  JC  less  than  JCMAX. 

When  intermediate  targets  are  present,  their  positions  and  velocities,  P. 

and  P.,  at  the  respective  times  of  intercept  t.  are  computed  by  subroutine  EFM. 

When  program  input  quantity  LOADX  is  invoked,  the  values  of  the  primer  vector  and 

its  time  derivative  at  the  endpoint  of  the  current  trajectory  segment  are  loaded  into 
#■ 

the  iterator  independent-variable  array  for  starting  the  next  trajectory  segment. 

After  all  trajectory  segments  have  been  computed,  the  time  X(17),  the  mass 
ratio  X(7),  and  all  other  trajectory  dependent-variable  values  X(i)  correspond  to  the 
trajectory  endpoint  at  primary- target  arrival  time  t^.  The  spacecraft  mass  compu- 
tations and  computations  of  trajectory-related  parameters  are  then  executed,  as 
discussed  below. 


ERROR  for  TRAJ ; 

None  for  TRJ1NT 

EFM,  ETA,  GETQ,  GETRV,  OMASS,  PRINT,  PRINTR , 
RETINJ,  RIDGE,  TAP,  TRAJI,  VPRINT  for  TRAJ; 
EFM,  ETA,  OMASS,  RETINJ  for  TRJINT 

INTGR4,  1TERAT,  LOGIC4,  REAL8,  SOLSYS 

TRJINT 

FINISH,  MINMX3  for  TRAJ; 

QSTART  for  TRJINT 
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The  primer  magnitude  is  computed, 


When  the  simulation  is  two-dimensional,  and  the  final  solar  distance  is 
specified  and/or  the  travel  angle  is  optimized,  the  position  and  velocity  of  an  ima- 
ginary body  moving  in  a circular  orbit  at  the  spacecraft's  final  position  are  computed, 


P 

n 


P = R , 
n n 


'/(1+"t/"sun,/rn 


kxR 


n 


where  is  the  imaginary  body's  (primary  target's)  gravitational  constant,  u 

1 * sun 

is  the  sun's  gravitational  constant,  r = |r  I , and  k is  a unit  vector  directed  to- 

n n 

ward  the  North  Ecliptic  Pole  (z  axis).  The  square-root  term  in  the  above  expression 
is  the  circular  speed  at  solar  distance  r^,  and  the  cross-product  term  is  the  unit 
tangential  vector. 

The  efficiency  7)(c)  and  dtj/dc  are  computed  via  subroutine  ETA. 

The  initial  spacecraft  mass  mQ  is  computed  via  subroutine  OMASS  when 
operating  in  the  launch-vehicle-dependent  mode,  and  by  the  formula 


2T)p 


m = 
o 


ref 


gc 


when  operating  in  the  launch-vehicle-independent  mode,  in  which  case  the  reference 
power  is  input  to  the  program.  When  OMASS  is  used,  the  reference  power  is  com- 
puted by  inverting  the  above  formula, 

gem 
o_ 

Pref  2 ?7 


The  spacecraft  mass  components  are  computed  as  follows : 
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The  electric  propulsion  engine  mass  is  given  by, 

m =p  , + (1  + Ap)  a ] , 

ps  ref  t a 

where  at  is  the  specific  mass  of  the  thruster  and  power  conditioning  subsystem, 
a is  the  specific  mass  of  the  arrays,  and  Ap  is  the  ratio  of  housekeeping  to 

ci 

reference  power,  a program  input  constant.  The  electric  propulsion  propellant 

mass  m is  obtained  by  integrating  the  derivative  of  mass  ratio  over  all  thrusting 
P 

arcs  and  employing  the  equation, 

n-1 

m =m  (1-P)+  ) (m  . - m .), 
pn  o n Z-i  samp  i drop  i 

i=l 

where  v is  the  mass  ratio  at  the  primary  target  (i.e. , prior  to  the  optional  retro 

n th 

maneuver)  and  m . is  the  sample  mass  picked  up  at  the  i target, 
samp  i 

The  sample  masses  and  drop  masses  are  specified  as  linear  functions  of  the 
initial  mass,  as  follows: 


m . = m k . ; 
samp  1 o samp  i 


m,  . = m k . , 
drop i o drop i 


where  k and  k are  program  inputs  and  are  available  as  independent 

sampi  drop  i 

parameters  of  the  boundary  value  problem.  Both  msamp  f and  mdrop  i are  avail“ 

able  as  dependent  parameters. 


The  electric  propulsion  propellant  tankage  mass  and  structure  mass  are  com- 
puted, respectively, 


m =km  , 
t t p 

m =k  m , 
s s o 


where 


k.  and  k 
t s 


are  program  input  constants. 
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The  net  spacecraft  mass,  which  is  the  main  performance  index  of  the  pro- 
gram's electric  propulsion  optimization  problem,  is  given  by 


m = m -m  -m  - m - m 
net  o ps  p t s 


n-1 


1=1 


m 


drop  i 


Auxiliary  quantities  associated  with  the  optional  retro  maneuver  at  the  primary 
target  are  computed  (the  QTMASS  array): 


-Av'/c 

qi  = e r 


ex  = 1-V 


q = m v - j m -jm, 
2 on  Jps  ps  Jt  t 


vsv 


q^  not  used. 


q_  = m + q„  c , 
5 rs  3 r 


and  these  quantities  go  into  the  computation  of  the  retro-mass  (in  the  expression  for 


m A above): 
net  ' 


n-1 

m = q + q + m ) 
r 3 5 o L 

i=l 


drop  i 


The  initial  primer  magnitude  is  computed, 


= 7a  • A . 
Vo  o 


The  quantity  g^,  which  is  used  in  conjunction  with  the  transversal ity  computations, 
is  computed. 
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g = j e (1  + k ) fl  + - 

Bx  Jr  x ' rt  L 


4°'  W I 
2 J ’ 

2c  — c (f  -e  ) 
r 1 x x 


where  f is  given  by 
x 


f 

X 


2-(l  + 


2 

Av 


r 

D e 


The  partial  derivative  of  the  performance  index  with  respect  to  the  initial  spacecraft 
mass  is  computed, 


IT 

m 

o 


n-1 


a 77 

d m 


= k +k  +j  a+kj^+a+k)  7 

stp  277  tn  t lj 

i=l 


k 

samp  i 


n-1 


n-1 

r* 


Y k,  .+g  Fa  + jtk.)y -j.k.(1  + > (k 

A dropi  x<-  ttntt  i 


• ~ k,.  •)) 
samp  i drop  i 


1=1 


i=l 


-i  i ^-1 
JpJps  2??  J* 

The  arbitrary  positive  performance  index  constant  k is  assigned  a value  which  causes 
the  transversality  condition  associated  with  the  final  mass  ratio  to  be  satisfied; 

k = Xy  /vv  ’ 
n n 

where 

n = m [g  (1  + j.k  ) - (1+k  )]  . 
v o x t t t 

n 

When  the  primary  target  corresponds  to  an  out-of-the-ecliptic  mission,  the 
position  and  velocity  of  the  imaginary  target  are  obtained  from  subroutine  GET  RV. 

The  initial  primer  vector  used  in  the  transversality  computations  in  sub- 
routine GETQ  is  given  by 

• • 

AA=a,  A+(l-a.)A  , 

otr  k o k o 
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where  the  weighting  function  a is  given  by 


• ± 

_ r -10  j A | / 1 A | -|  1000 

\-L1-e  ° ° J 


The  parameter  a^  — 1 unless  |A  [ becomes  very  small  with  respect  to 
• k o 

| A | . After  being  used  in  the  above  formula  for  A , the  parameter  a is  re- 
o o tr  k 

computed  as  a normalizing  factor  to  be  used  in  subroutine  GETQ: 


Then  subroutine  GETQ  is  invoked,  which  computes  the  transversality  conditions  and 
targeting  conditions  (iterator  dependent-variables).  The  iterator  independent  and  de- 
pendent-variable values  are  optionally  printed,  and  the  propulsion-time  corner  proxi- 
mity counter  is  incremented  via  subroutine  RIDGE  if  the  trajectory  is  in  the  neighbor- 
hood of  a propuls  ion -time  corner. 

Entry  point  TRJINT  initializes  logical  indicators  and  computes  parameters 
whose  values  remain  constant  on  subsequent  passes  through  TRAJ  (during  an  iteration 
sequence) . 

Messages  and  printouts:  Should  the  time  of  intercept  of  any  intermediate  target  be- 
come greater  than  the  time  of  intercept  of  the  primary  target,  which  may  occur  either 
through  incorrect  program  input  or  by  action  of  the  iterator,  the  message  is  printed 
on  units  6 and  12, 

INTERMEDIATE  TIME  GREATER  THAN  FINAL  TIME. 

CASE  TERMINATED. 


and  the  program  master  error  indicator  is  set,  and  the  routine  is  exited.  In  like 
manner,  should  the  intercept  times  of  two  intermediate  targets  become  anti-chronological, 
the  same  procedure  occurs  after  the  message  is  printed  on  units  6 and  12, 

TARGET  PASSAGE  TIMES  NOT  ASCENDING. 

CASE  TERMINATED. 


1080 


If  the  iteration  to  obtain  the  desired  final  time  value  of  a given  trajectory 
segment  is  not  satisfied  to  within  approximately  .0001%,  the  master  error  indicator 
is  set  and  the  routine  is  exited  after  the  message  is  printed  on  units  6 and  12, 

t t 

FINAL  TIME  VIOLATED  i max 

where  t.  is  the  actual  time  obtained  and  t is  the  desired  time,  both  in  units  of 


TRAJ  EXTERNAL 


Variable  J 

Use 

Common 

0(70) 

SUA 

ITERAT 

R(2) 

U 

REAL8 

X(50) 

SU 

REAL8 

AK 

su 

REAL8 

1 

BX(5,  70) 

SU 

ITERAT 

EX 

su 

REAL8 

FP 

u 

REAL8 

GM(70) 

u 

SOLSYS 

JC 

s 

INTGR4 

VARIABLES  TABLE 
| Description 


Array  of  iterator  independent-variables, 
in  program  internal  units. 

Spacecraft  solar  distance  (in  this  sub- 
routine, applies  to  time  at  primary 
target  intercept),  in  AU. 

Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 

Weighting  factor  between  initial  primer 
vector  and  its  derivative;  primer  vector 
normalizing  factor  output  to  subroutine 
GETQ,  afc. 

Iterator  independent  variable  array  in- 
put to  the  program  in  the  form  Xi. 

-Av'/c 

e = 1 - e r. 

x 

f' , the  derivative  of  f = Av'  - Av 

-c  e f with  respect  to  Av',  as 
1 x x 

described  in  subroutine  RETINJ. 

Array  of  planetary  gravitational  con- 
stants, inm^/sec^. 

Index  for  time-function  array  (see 
subroutine  CHECK). 
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TRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

| Common 

Description 

JT 

U 

INTGR4 

Jettison  indicator  jt  for  electric  pro- 
pulsion tankage  prior  to  primary-target 
retro-maneuver. 

00(70) 

S 

ITERAT 

Array  of  iterator  independent-variables, 
in  program  external  units. 

P0(7) 

u 

REAL8 

Array  of  initial  adjoint  variables  A , 
. 0 

A , A . 
o Vo 

VH 

u 

REAL8 

Speed  at  periapse  of  approach  hyperbolic 
trajectory  at  the  primary  target,  in 
meters/second. 

VJ 

A 

REAL8 

Jet  exhaust  speed  of  electric  propulsion 
system,  c,  in  EMOS. 

vs 

u 

REAL8 

2 

v , as  described  in  subroutine  RETINJ, 

2 2 
in  meters  /second  . 

XD(50) 

u 

REAL8 

Array  of  trajectory  dependent -variable 
derivatives,  allocated  the  same  as  X(i), 
as  described  in  subroutine  RKSTEP. 

X0(7) 

1 

s 

REAL8 

Initial  launch  planet  state  P , P , and 

0 0 

initial  mass  ratio  v . 

o 

ABX(70) 

u 

L0GIC4 

Master  array  of  iterator  independent- 
variable  indicators. 

AJT 

su 

REAL8 

Floating-point  equivalent  of  JT. 

AVJ 

u 

REAL8 

Inverse  of  electric  propulsion  system  jet 
exhaust  speed,  l/c,  in  EMOS-1. 

A1B 

u 

L0GIC4 

Logical  indicator  defined  in  subroutine 
SETUP. 

A2B 

u 

LOGIC4 

Logical  indicator  defined  in  subroutine 
SETUP. 
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Variable 

Use  j 

Common  1 

1 

Description 

FMS 

S 

j 

REAL8 

dm  /dv  , in  kg/EMOS. 
0 00  0 

HAM 

U 

REAL8 

Variational  hamiltonian  at  the  be- 

ginning of  the  current  trajectory-segment. 

JPP 

u 

INTGR4 

Jettison  indicator  j for  electric  pro- 

ps 

pulsion  system  prior  to  primary-target 
retro-maneuver. 

LEG 

SUA 

INTGR4 

Counter  indicating  the  current  trajectory- 
segment. 

! PMN 

S 

REAL8 

Magnitude  of  primer  vector,  X . 

PMS 

SU 

REAL8 

Square  of  magnitude  of  primer  vector, 
X . 

PMO 

su 

REAL8 

Magnitude  of  initial  primer  vector, 

VHS 

u 

REAL8 

Square  of  speed  at  periapse  of  approach 
hyperbolic  trajectory,  pertaining  to 
retro-maneuver  at  the  primary  target,  in 
meters/second. 

AJPP 

su 

REAL8 

Floating-point  equivalent  of  JPP. 

A11C 

u 

i 

LOGIC4 

Logical  indicator  defined  in  subroutine 
SETUP. 

A13A 

u 

LOGIC4 

Logical  indicator  defined  in  subroutine 
SETUP. 

A18A 

u 

LOGIC4 

Logical  indicator  defined  in  subroutine 
SETUP. 

A19A 

u 

LOGIC4 

Logical  Indicator  defined  in  subroutine 
SETUP. 

A20A 

u 

LOGIC4 

Logical  indicator  defined  in  subroutine 
SETUP. 
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TRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

CONX(70) 

U 

ITERAT 

Array  of  print  conversion  factors  for 
iterator  independent  variables. 

CSTR 

U 

REAL8 

Electric  propulsion  system  structural 

factor,  k . 
s 

DPOW 

U 

REAL8 

Ratio  of  housekeeping  power  to  reference 
power,  p^/p  a constant,  input  to  the 

program. 

FETA 

s 

REAL8 

l/c  - ri'/n,  in  EMOS-1. 

FMSI 

s 

REAL8 

dv  /di,  in  EMOS/radian  (see  subroutine 
c 

OMASS). 

FTVJ 

u 

REAL8 

2 3 

Auxiliary  parameter  gc,  in  AU  /tau  . 

HA  MX  (4) 

s 

REAL8 

Variational  hamiltonian  values  at  the  be- 
ginning of  trajectory-segments  departing 
intermediate  targets. 

PIMO 

su 

REAL8 

TT 

m 

o 

PMOD 

su 

REAL8 

Magnitude  of  initial  primer  derivative, 

| A |. 
o 

QCST 

u 

REAL8 

Retro  stage  mass,  m , in  kilograms. 

r s 

QJEX 

u 

LOGIC4 

Detailed  printout  indicator. 

TEST 

s 

REAL8 

Tolerance  value  in  test  for  zero  initial 
primer  vector,  used  in  subroutine  TRAJ I. 

TMAX 

su 

REAL8 

Elapsed  time  at  end  of  current  trajectory- 
segment  (integration  stopping  condition), 
in  tau. 

TOFF  (20) 

u 

REAL8 

Array  of  times,  from  the  start  of  the  tra- 
jectory, at  which  imposed  coast  phases 
are  to  begin,  in  days. 

TRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

VIMP 

A 

REAL8 

Launch  hyperbolic  excess  speed,  v , 
in  EMOS. 

VINF 

S 

REAL8 

Hyperbolic  excess  speed  at  the  primary 

target,  v , in  meter  s/second. 

“n 

XINT(50,  5) 

S 

REAL8 

Saved  trajectory  dependent -variable  values 
at  arrival  at  the  intermediate  targets. 

CONPW 

u 

REAL8 

2 3 

Power  conversion  factor,  in  m /sec  . 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

CTANK 

u 

REAL8 

Electric  propulsion  system  propellant 
tankage  factor,  k^. 

CTRET 

u 

REAL8 

Retro  tankage  factor,  k^,  for  retro 

maneuver  at  the  primary  target. 

n-1 

rn 

DROPS 

su 

REAL8 

Sum  of  drop-mass  factors,  £ ^dropi’ 

i— 1 

ERROR 

SAX  ' 

Error-condition  indicator. 

FLYBY 

u 

LOGIC4 

Indicator  that  maneuver  at  primary  target 
is  flyby. 

GPLAN 

su 

REAL8 

Gravitational  constant  of  primary  target, 

o O 

in  m'Vsec  . 

' 

GSUBX 

su 

REAL8 

Auxiliary  parameter  g . 

A 

IHUNG 

u 

INTGR4 

Counter  of  the  number  of  propulsion- 
corner-proximity  occurrences  along  the 
current  trajectory. 

INTER  (5) 

A 

INTGR4 

1 

Array  of  indices  which  select  the  correct 
orbital  elements  for  the  intermediate 
targets. 

JCMAX 

s 

1 

INTGR4 

Maximum  value  which  JC  may  attain, 
corresponding  to  the  end  of  the  current 
trajectory  segment.  _ _ 
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TRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

LOOSE 

SU 

LOGIC4 

Indicator  that  the  initial  heliocentric 
spacecraft  velocity  is  included  in  the 
(active)  iterator  independent  variables. 

MAJOR 

U 

INTGR4 

Counter  of  the  number  of  nominal  ("major") 
trajectories,  which  have  an  associated  set 
of  neighboring  trajectories,  generated  in 
the  current  iteration  sequence. 

MOPTX(5) 

A 

INTGR4 

The  target-numbers  of  the  successive 
intermediate  targets. 

MOPT2 

A 

INTGR4 

Launch  planet  number. 

MOPT3 

UA 

INTGR4 

1 Planet-number  of  primary  target. 

PSIGN 

U 

REAL8 

Coefficient  defining  the  sense  of  the 
launch  hyperbolic  excess  velocity  relative 
to  the  initial  primer  vector. 

RPLAN 

S 

REAL8 

Radius  of  primary  target,  in  meters. 

n-1 

SAMPS 

SU 

REAL8 

Sum  of  sample-mass  factors,  V k 

L.  samp  i 

i=l 

Arbitrary  positive  performance  index 
constant,  k. 

SCALE 

s 

REAL8 

! 

SEFMA  (7) 

UA 

REAL8 

Array  containing  position  and  velocity  of 
launch  planet  at  launch  time,  P and  P , 
in  AU  and  EMOS,  respectively.  0 

SEFMB(7) 

SA 

REAL8 

Array  containing  position  and  velocity  of 
primary  target  at  time  of  target  intercept, 
P^  and  P , in  AU  and  EMOS,  respectively. 

SEFMC(7) 

A 

REAL8 

Time  derivative  of  SEFMA  array  (w.  r.t. 
1 tau-1-). 

SEFMD(7) 

A 

REAL8 

II 

Time  derivative  of  SEFMB  array  (w.  r.t. 
tau-1). 
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Variable 

Use 

Common 

Description 

SUN  MU 

U 

REAL8 

Gravitational  constant  of  the  sun,  in 
mVsec  . 

TEMP2 

S 

REAL8 

Auxiliary  quantity,  used  in  subroutine 
GETQ. 

TEMP4 

su 

REAL8 

Auxiliary  quantity,  used  in  subroutine 
GETQ. 

VJRET 

u 

REAL  8 

Retro-stage  jet  exhaust  speed,  cr,  per- 
taining to  retro  maneuver  at  the  primary 
target,  in  meters/second. 

VLOSS 

u 

REAL  8 

Velocity  loss  associated  with  retro 
maneuver  at  the  primary  target,  in 
meters/second. 

WPRIM(3) 

su 

REAL8 

Initial  primer  vector,  designed  to  reflect 

the  correct  direction  of  v when  A 0. 

00  0 o 

XDINT 

(50,5) 

s 

] 

REAL8 

1 

Saved  trajectory  dependent -variable  deri- 
i vative  values  at  arrival  at  the  intermediate 

targets. 

XLOAD 

1 

U 

LOGIC4 

Indicator  for  invoking  the  intermediate- 
target  initial-guess  feature. 

XMASS(7) 

SUA 

REAL8 

Array  of  masses  (in  kilograms)  and  mass- 
related  parameters : 

(1)  Initial  mass,  mo. 

(2)  Propulsion  system  mass,  nipS. 

(3)  Propellant  mass,  m . 

(4)  Tankage  mass,  mt.  P 

(5)  Structure  mass,  mg. 

(6)  Reference  power,  Pref,  in  watts. 

(7)  Efficiency,  rj. 

XTINT  ' 
(6,  5) 

A 

REAL8 

Positions  and  velocities  of  intermediate 
targets  at  times  of  intercept,  P.  and  P., 
in  AU  and  EMOS,  respectively. 
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TRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

j Common 

ALPHA A 

U 

REAL8 

ALPHAT 

U 

REAL8 

ALWAYS 

S 

LOGIC4 

EMU  ODD 

u- 

REAL8 

ERRORX 

t 

u 

LOGIC4 

FIXPOW 

u 

LOGIC4 

JPRINT 

u 

INTGR4 

LEGMAX 

u 

INTGR4 

NPRINT 

u 

INTGR4 

OUTECL 

u 

LOGIC4 

PAYLOD 

su 

REAL8 

PLANET 

! u 

LOGIC4 

POWFIX 

i u 

j 

REAL8 

PR ZERO 

su 

LOGIC4 

QTMASS 

(5) 

su 

REAL8 

QVLOSS 

u 

LOGIC4 

Description 


Specific  mass  of  solar  arrays,  a , in 
kg  Aw.  3 

Specific  mass  of  thruster  subsystem, 
in  kg/kw. 

Indicator  for  fixed  (specified)  non-zero 
propulsion-time  adjoint  variable. 

Gravitational  constant  of  the  primary 
target,  input  to  the  program,  in  m3/sec2. 

Program  master  error  indicator. 

Launch-vehicle- independent  trajectory 
option  indicator. 

Unit  11  printout-length  indicator. 

Total  (maximum)  number  of  trajectory- 
segments  comprising  the  trajectory. 

Printout  amount  selection  indicator. 

Extra-ecliptic  mission  indicator. 

Net  spacecraft  mass,  m^,  in  kg. 

Ephemeris -option  indicator. 

Spacecraft  reference  power,  pref,  in 
kw,  applicable  only  in  the  launch-vehicle- 
independent  mode  of  operation. 

Indicator  that  zero  initial  primer  vector 
is  the  desired  condition. 

Array  of  mass-related  parameters,  as 
described  in  subroutine  RETINJ. 

Indicator  for  program  option  invoked 
via  program  input  quantity  ALTITU. 


TRAJ  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable  j 

Use  ' 

Common  | 

Description 

RADIUS  (70) 

U 

SOLSYS 

Array  of  planetary-body  radii,  in  meters. 

RADODD 

U 

REAL8 

Radius  of  primary  target,  input  to  the 
program,  in  meters. 

SPIRAL 

U 

LOGIC4 

Indicator  for  electric  propulsion  spiral 
capture  maneuver  at  the  primary  target. 

TCHECK 

(41) 

su 

REAL8 

Array  of  time  values,  each  of  which  is 
isolated  by  subroutine  CHECK,  in  tau; 
intermediate  values  correspond  to  engine 
switch  times  associated  with  imposed 
coast  phases. 

TCOAST 

(20) 

u 

REAL8 

Array  of  times  representing  the  duration 
of  the  coast-phase  start  times  in  TOFF , 
in  days. 

TDATEX 

u 

REAL8 

Reference  Julian  date,  less  2400000,  de- 
fined by  program  input  quantity  MYEAR, 
etc. 

TDATE1 

1 

SA 

REAL8 

Launch  Julian  date,  less  2400000. 

I 

TDATE2 

SA 

REAL8 

Julian  date  at  time  of  primary-target 
intercept,  less  2400000. 

VELOSS 

u 

LOGIC4 

Indicator  for  performing  velocity  loss  or 
velocity  penalty  computations  in  sub- 
routine RETINJ. 

WONDER 

u 

LOGIC4 

Indicator  for  bypassing  all  tests  associated 
with  the  condition  in  which  the  iteration 
sequence  is  stymied  because  the  trajectory 
is  in  high  proximity  to  a corner  in  the 
propuls  ion -time  function. 

XT  DINT 
(6,5) 

A 

REAL8 

Time  derivative  of  XTINT  array  (w.r.t. 
tau“*). 

* 
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Name: 


TRAJI 


Calling  Argument:  ERROR 

Referenced  Sub-programs:  CHECKI,  EFM,  RADAR,  RIDGE,  SOLAR 

Referenced  Commons:  INTGR4,  ITERAT,  ITER2,  LOGIC4,  REAL8 

Entry  Points:  None 

Referencing  Sub-programs:  TRAJ 

Discussion:  Subroutine  TRAJI  basically  consists  of  logic  originally  broken  out  of 
the  top  portion  of  subroutine  TRAJ  for  the  purpose  of  reducing  the  size  of  TRAJ. 

TRAJI  performs  the  initialization  of  the  trajectory-starting  quantities;  in 
particular,  the  active  iterator  independent  variables  are  employed  at  this  point  to 
initialize  the  applicable  trajectory  starting  parameters,  especially  the  array  of  in- 
tegrated trajectory  dependent-variables  X(i). 

If  the  iterator  is  allowed  to  vary  the  time  of  launch  or  the  time  of  arrival 
at  the  primary  target,  then  the  analytic  ephemeris  routine  is  invoked  to  yield  up- 
dated values  for  the  state  vectors  of  the  pertinent  celestial  bodies. 

Initialization  is  performed  within  subroutine  RADAR,  which  computes  com- 
munication distance  and  angle,  if  the  current  trajectory  is  the  final,  case-summary 
trajectory  of  a given  case.  Entry  point  CHECKI  of  subroutine  CHECK  is  called,  to 
Initialize  CHECK  for  the  current  trajectory.  When  power  degradation  is  simulated, 
subroutine  SOLAR  is  called  in  order  to  determine  if  the  optimum  solar  array  tilt- 
angle  corresponds  to  operating  on  the  power-function  curve  y or  below  it. 

Messages  and  printouts:  If  the  Iterator  drives  the  initial  primer  vector  toward 
the  origin  of  primer-space,  i.e.,  toward  the  zero-vector,  which  is  a singularity  of 
the  optimal  rocket  problem  and  which  causes  severe  numerical  difficulty  when  the 
thrust  switch  function  is  positive,  preventing  the  two-point  boundary  value  problem 
from  converging  and  wasting  machine  time,  then  the  program  will  detect  this  condi- 
tion via  a simple  test  of  the  magnitude  of  A q,  and  will  declare  an  error  condition 
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and  exit  the  subroutine  after  printing  the  diagnostic  message  on  units  6 and  12: 

INITIAL  PRIMER  CONVERGING  TO  ZERO 

The  iterator  may  decide  to  try  several  such  trajectories  before  giving  up,  and  so 
the  message  may  appear  several  times.  The  analyst  should  consider  reversing  the 
value  of  program  input  quantity  PSIGN  when  this  problem  occurs. 

If  the  iterator  drives  the  magnitude  of  the  launch  hyperbolic  excess  velocity 
va>o  = 0(13)  to  become  negative,  which  is  physically  meaningless, then  the  program 
will  declare  an  error  condition  and  exit  the  subroutine  after  printing  the  diagnostic 
message  on  units  6 and  12: 

DEPARTURE  VOO  IS  NEGATIVE  (X13) 

The  iterator  may  decide  to  try  several  such  trajectories  before  giving  up,  and  so 
the  message  may  appear  several  times.  The  analyst  should  consider  trying  a 
significantly  different  set  of  values  as  initial  guesses  for  the  iterator  independent 
variables  when  this  problem  occurs. 


TRA-JI  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

B(35) 

U 

ITER2 

Array  of  active  iterator  independent- 
variables. 

0(70) 

su 

ITER  AT 

Array  of  iterator  independent-variables, 
both  passive  and  active. 

X(50) 

su 

REAL8 

Array  of  trajectory  dependent-variables, 
as  described  in  subroutine  RKSTEP. 

CE 

u 

REAL8 

Cosine  of  obliquity  of  ecliptic,  cos  € . 

FT 

su 

REAL8 

Reference  thrust  acceleration,  g,  in 
AU/tau2. 

LL(70) 

u 

INTGR4 

| 

1 

Index  set  of  active  iterator  independent- 
variables. 
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TR  A.TI  EXTERNAL  VARIAPLES  TABLE  (cont) 


Variable 

Use  j 

■ - * 

Common 

Description 

P0(7) 

SU 

REAL8 

Array  of  initial  adjoint  variables  A , 

RT 

s 

REAL8 

Spacecraft  solar  distance,  r,  in  AU. 

SE 

u 

REAL8 

Sine  of  obliquity  of  ecliptic,  sin  € . 

VJ 

SU 

REAL8 

Jet  exhaust  speed,  c,  in  EMOS. 

X0(7) 

SU 

REAL8 

Initial  launch  planet  state  Pq>  Pq;,  and 

initial  mass  ratio  v . 

o 

ABX(70) 

u 

LOGIC4 

Array  of  iterator  independent- variable 
indicators,  which  selects  the  active 
variables. 

AVJ 

SU 

REAL8 

Inverse  of  jet  exhaust  speed,  l/c,  in 
EMOS-1. 

LXX 

u 

INTGR4 

The  number  of  (active)  iterator  inde- 
pendent-variable s . 

NSW 

s 

INTGR4 

i 

Counter  of  the  number  of  thrust  switch- 
ing points  encountered  along  the  tra- 
jectory. 

PMN 

SU 

REAL8 

Magnitude  of  primer  vector,  X. 

PMS 

SU 

REAL8 

Square  of  magnitude  of  primer  vector, 
X « 

TAU 

S 

REAL8 

Propulsion  time,  T,  in  tau. 

ANG1 

u 

REAL8 

Launch  site  latitude,  in  radians. 

BETA 

s 

REAL8 

Trajectory  independent-variable,  ft. 

FTVJ 

s 

REAL8 

2 3 

Auxiliary  parameter  gc,  in  AU  /tau  . 

HEAT 

u 

LOGIC4 

Indicator  that  the  solar  panels  are 
maintained  normal  to  the  sun  line  at 
all  times. 
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TRAJI  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

PMOD 

SU 

REAL8 

Magnitude  of  initial  primer  derivative, 

|/0l- 

QJEX 

U 

LOGIC4 

Detailed  printout  indicator. 

TEST 

U 

REAL8 

Tolerance  value  in  test  for  zero  initial 
primer  vector. 

TMAX 

s 

REAL8 

Integration  stopping  condition:  time  of 
flight  from  launch  to  primary  target, 
in  tau. 

VIMP 

SU 

REAL8 

Launch  hyperbolic  excess  speed,  v , 
in  AU/tau  (=  EMOS).  "° 

V00D(3) 

SU 

REAL8 

Launch  hyperbolic  excess  velocity,  V , 
in  AU/tau. 

ALTAU 

SU 

REAL8 

Propulsion-time  adjoint  variable,  AT> 

ANGLE 

S 

REAL8 

Travel  angle,  0 , in  radians. 

CHFNC 

u 

REAL8 

A function  whose  roots  determine  the 
switch  points  of  the  array  tilt  angle  to 
and  from  the  power -curve  boundary, 

fchl' 

CONTM 

u 

REAL8 

Time  conversion  factor,  tau  to  days. 

ERODE 

u 

LOGIC4 

Power  degradation  option  indicator. 

ERROR 

SAX 

Error-condition  indicator. 

FTOVJ 

s 

REAL8 

Auxiliary  parameter  g/c,  in  tau  \ 

LDECL 

SU 

LOGIC4 

Indicator  for  the  condition  in  which  the 
magnitude  of  the  departure  asymptote 
declination  exceeds  the  parking  orbit 
inclination. 
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TRAJI  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

LOOSE 

U 

LOG1C4 

Indicates  that  the  initial  heliocentric 
spacecraft  velocity  is  included  in  the 
(active)  iterator  independent  variables. 

MOPT2 

A 

INTGR4 

Launch  planet  number. 

MOPT3 

A 

INTGR4 

Planet-number  of  primary  target. 

NSPEC 

S 

INTGR4 

Counter  for  storage  arrays  associated 
with  the  Extremum  Table  of  Selected 
Functions. 

PCURV 

S 

LOGIC4 

Indicator  for  condition  in  which  solar 
panels  are  in  position  to  receive  maxi- 
mum power,  when  degradation  option 
is  invoked. 

PSIGN 

u 

REAL8 

Coefficient  defining  the  sense  of  the 
launch  hyperbolic  excess  velocity  re- 
lative to  the  initial  primer  vector. 

QDECL 

1 

u 

LOGIC4 

Non-coplanar  launch  maneuver  indicator. 

1 

SEFMA  (7) 

SUA 

REAL8 

Array  containing  position  and  velocity 

of  launch  planet  at  launch  time,  Pq  and 

P . in  AU  and  EMOS,  respectively. 

0 

SEFMB(7) 

SA 

REAL8 

Array  containing  position  and  velocity  of 

primary  target  at  time  of  target  intercept, 

P and  P , in  AU  and  EMOS,  respectively, 
n n 

SEFMC(7) 

A 

REAL8 

Time  derivative  of  SEFMA  array  (w.  r.t. 
tau"1). 

SEFMD(7) 

A 

REAL8 

Time  derivative  of  SEFMB  array  (w.  r.t. 
tau-1). 

DECLAM 

SU 

REAL8 

Geocentric  declination  of  initial  primer 

vector,  6 , in  radians. 

A 

ERRORX 

S 

LOGIC4 

Program  master  error  indicator. 
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TRAJI  EXTERNAL  VARIABLES  TABLE  (cont) 


Variable 

Use 

Common 

Description 

FEXTAU 

S 

LOGIC4 

Indicator  for  non-zero  X . 

T 

F EXT  HR 

U 

LOGIC4 

Indicator  for  fixed  (i.e.,  constant) 
thrust  cone  angle. 

LIMP  HI 

U 

INTGR4 

Highest  index-value  of  all  non-zero 
(multiple)  fixed  thrust-cone-angles; 
highest  permissible  value  is  currently 
one. 

MAXPOW 

U 

LOGIC4 

Indicator  for  mode  of  operation  in  which 
solar  panels  are  maintained  in  orienta- 
tion to  receive  maximum  permissible 
power,  when  degradation  option  is  in- 
voked. 

NSTEP1 

s 

INTGR4 

Number  of  thrust  computation  steps 
associated  with  the  current  trajectory. 

NSTEP2 

s 

INTGR4 

Number  of  coast  computation  steps 
associated  with  the  current  trajectory. 

OUT EC L 

u 

LOGIC4 

Indicator  for  out-of -ecliptic  mission. 

PLANET 

u 

LOGIC4 

Ephemeris-option  indicator. 

PRZERO 

u 

LOGIC4 

Indicator  that  zero  initial  primer 
vector  is  the  desired  condition. 

TANGLE 

s 

REAL8 

Elapsed  ecliptic  longitude,  in 

radians. 

TDATEX 

u 

REAL8 

Reference  Julian  date. 

TDATE1 

SA 

REAL8 

Julian  date  at  time  of  launch. 

TDATE2 

SA 

REAL8 

Julian  date  at  time  of  primary  target 
intercept. 
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Name: 


TRAVEL 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


X,  Y,  XM,  YM,  ANGLE 

None 

REAL8 

None 

LOAD,  TAP 


Discussion:  TRAVEL  is  used  in  the  approximate  integration  of  two  auxiliary 
angles  calculated  for  printout  use.  The  first  angle,  termed  travel  angle,  is 
defined 


where 


e = z e 

t i i 


On  each  call  to  TRAVEL  the  6.  associated  with  the  two  state  vectors  X and  Y 

i 

is  calculated  and  subsequently  added  to  the  previous  value  of 


The  second  angle,  termed  ecliptic  longitude,  is  accumulated  similarly 


where 


e = e.  e . 

e i € i 


6 . = - tan 
e i 


■ 


Vi  + v2 


■ 
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TRAVEL  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

X(3) 

UX 

Current  position  vector,  X,  AU. 

Y(3) 

UX 

Previous  position  vector,  Y,  AU. 

XM 

UX 

Magnitude  of  X,  x,  AU. 

YM 

UX 

Magnitude  of  Y,  y , AU. 

ANGLE 

sux 

Travel  angle,  6^,  radians. 

TANGLE 

su 

REAL8 

Ecliptic  longitude,  6^,  radians. 
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Name: 


TWINKL 


Calling  Argument:  None 

Referenced  Sub-programs:  None 

Referenced  Commons:  REAL8 

Entry  Points : None 


Referencing  Sub-programs:  QSTART 

Discussion:  TWINKL  is  used  to  calculate  a Cartesian  pointing  vector,  s,  in 
the  direction  of  Canopus.  The  right  ascension,  a,  and  declination,  6 , of 
Canopus  in  the  equatorial  system  are  built-in  to  the  sub-program. 

a=  95°.  799167 

6 = -52°. 67666 

The  obliquity  of  the  ecliptic,  € , is  used  to  calculate  the  vector  in  the  ecliptic 
system. 

cos  6 cos  a 

s = cos  € cos  6 sin  a + sin  € sin  6 

-sin  f cos  <5  sin  a + cos  e sin  6 


TWINKL  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

SRA 

SU 

'I  r r 

REAL8 

Right  ascension  of  Canopus,  a,  deg. 

SDC 

SU 

REAL8 

Declination  of  Canopus,  6,  deg. 

SPV(3) 

S 

REAL8 

Star  unit  vector,  s . 

SE 

U 

REAL8 

Sine  of  obliquity,  sin  C . 

CE  ’ 

u 

I 

REAL8 

Cosine  of  obliquity,  cos  €. 

DEG 

u 

REAL8 

Degrees  per  radian . 
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Name: 


VMAG 


Calling  Argument: 

Referenced  Sub-programs: 
Referenced  Commons: 


V for  VMAG; 

V,  W for  VDOT 

None 

None 


Entry  Points:  VDOT 

Referencing  Sub-programs:  ALBEDO,  CARKEP,  CDERIV,  QPRINT,  RADAR,  SPRINT, 

‘ ’ SWING  for  VMAG; 

ALBEDO,  CARKEP,  CDERIV, RADAR,  SPRINT,  SWING  for  VDOT 


Discussion:  This  is  basically  a package  of  two  FUNCTION  subroutines,  each  of  which 
performs  an  elementary  operation  in  three  dimensional  space  as  follows: 

Subroutine  VMAG  computes  the  magnitude  of  a vector; 

VMAG  = / Vj2  + v22  + v32 

Entry  point  VDOT  computes  the  dot  product  of  two  vectors; 

VDOT  = v1w1+v2w2  + v3w3 


VMAG  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

V(3) 

UX 

General  input  vector. 

W(3) 

ux 

General  input  vector. 

VDOT 

sx 

Output  dot  product  of  V and  W . 

VMAG 

( 

sx 

Output  magnitude  of  V. 
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Name: 


VPRINT 


Calling  Argument: 
Referenced  Sub-programs: 
Referenced  Commons: 
Entry  Points: 

Referencing  Sub-programs: 


None 


None 


% 


& 


Ot 


ITERAT,  REAL8 


None 


% 


% 


% 


* 


TRAJ 


Discussion:  Historically,  this  routine  was  used  briefly  in  1970  in  a related  study 
involving  optimum  departure  trajectories  of  the  NERVA  rocket.  It  has  been  re- 
tained in  the  program  due  to  its  potential  use  as  a general  print  routine  concerning 
optimum  departure  of  rockets  from  circular  Earth  parking  orbits.  (The  routine  is 
called  after  the  trajectory  endpoint  is  reached).  The  related  transversality  condi- 
tions are  found  in  subroutine  GETQ.  The  related  program  option,  invoked  by  the 
program  input  quantity  ALTITU,  could  possibly  be  somewhat  obsolete,  i.e. , in 
error,  due  to  the  many  program  alterations  which  have  occurred  over  the  years 
since  1970. 

The  following  consists  of  a brief  exposition  summarizing  the  program  option 
of  simulating  optimum  Earth  departure  trajectories.  It  is  assumed  that  the  initial 
mass  ratio  and  associated  adjoint  variable  are  initialized  to  unity;  - 1 and 

X =1  The  problem  is  restricted,  without  loss  of  generality,  to  two-dimensional 

Vo 

motion  in  the  xy-plane.  The  two-point  boundary  problem  is  5x5,  as  follows: 
Independent  Variables  Dependent  Variables 


X 1 

r t,  i 

X 

i 

X 

T 

y 

2 

X* 

T0 

X 

3 

X* 

y 

T4 

t„ 

V 

f 

00 
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The  independent  variables  consist  of  the  primer  vector  and  its  derivative  and  the 
transfer  time  (which  is  optimized),  and  the  dependent  variables  consist  of  four 
transversality  conditions  and  specified  departure  excess  speed.  The  transversality 

conditions,  all  evaluated  at  the 

trajectory  endpoint,  are: 

Ti  * 

O=0 

t2  , 

[ R x A | = 0 

T3  = 

|R  x A | = 0 

T4  = 

A • R + — = 0 

VU2 

where  a is  the  thrust  switching  function,  R is  the  spacecraft  position  vector, 

A is  the  primer,  ^ is  the  Earth's  gravity  constant,  r = |r|  , and  V is  the 

mass  ratio.  These  correspond  to  optimum  transfer  time,  optimum  travel  angle, 

optimum  final  eccentricity,  and  optimum  propellant  expenditure.  Thrust  switch 

points  are  optimized;  however,  in  the  class  of  solutions  of  primary  interest, 

a = 0=0  and  o>0  otherwise  (between  t and  t,).  o =0  because  the 
of  o f o 

spacecraft  is  (conceptually)  optimally  coasting  in  the  circular  parking  orbit  at 
time  of  thrust  initiation.  This  subroutine,  which  is  a print  subroutine,  contains 
a test  and  related  diagnostic  printout  to  ensure  that  o < 0,  which  is  a desired 
characteristic  of  condition  T^  for  the  class  of  solutions  considered. 

The  circular  parking  orbit  radius  is  given  by 


r 

o 


r 

Earth 


+ h 


where  r is  the  Earth's  mean  radius  and  h is  the  altitude  (program  input 

Earth 

quantity).  The  initial  speed  is  then 

v = V/i/r 
o o 

The  (final)  semi-major  axis,  which  is  related  to  the  specified  v , is  given  by 
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2 -1 
a = _(v  -2/r)  , 


in  which  the  gravity  parameter  is  normalized;  the  actual  departure  excess  speed 
achieved  on  the  trial  trajectory  is  then  computed  as 

v = ±v//ja|  , 

OD  O 

where  the  minus  sign  indicates  that  escape  was  not  achieved.  The  impulsive  speed 
required  to  achieve  the  actual  excess  speed,  starting  from  the  parking  orbit,  is  com- 
puted as 

A v _ = v (J 2 +l/|a|  - 1 ) • 

The  characteristic  speed  of  the  departure  trajectory  is 


CO 


v = - c v tn  y . > 
c oi 


and  the  velocity  loss  due  to  gravity  is 


v = v - Av 
loss  c IMP 


The  initial  thrust-to-weight  ratio  is 


T/W  = gv  /r  G , 
o o 


and  the  specific  Impulse  is 


cv 


sp  G 


In  the  above,  G is  the  acceleration  of  gravity  at  the  Earth's  surface,  g is  the 
reference  thrust  acceleration  in  EMOS/tau,  and  c is  the  jet  exhaust  speed  in 
EMOS. 
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Messages  and  printouts:  The  normal  informative  output  is 


OPTIMUM  EARTH  DEPARTURE 
T/W  (T/W) 

ISP  (Isp)  SEC 

V0°  (Vg;)  FPS 

DVI  (AVIMP}  FPS 
VCHAR  (VC)  FPS 

VLOSS  ^Vloss)  FPS 
TIME  ~ V HOURS 

and,  if  > 0,  the  diagnostic  message  is  output: 
***ERROR***  BAD  SWITCH  FUNCTION  ROOT 


VPRINT  EXTERNAL  VARIABLES  TABLE 


Variable 

Use 

Common 

Description 

0(70) 

U 

ITERAT 

Array  of  iterator  independent  variables. 

X(50) 

u 

REAL8 

Array  of  trajectory  integrated  functions. 

VJ 

u 

REAL8 

Jet  exhaust  speed,  c,  in  EMOS. 

ALTITU 

u 

REAL8 

Circular  orbit  altitude,  h,  in  nautical 
miles. 

DWITCH(2) 

u 

REAL8 

Thrust  switching  function  derivative,  a. 

FPSNMH 

u 

REAL8 

Conversion  factor  from  nautical  miles 
per  hour  to  feet  per  second. 

— 
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Name: 


VSCAL 


A,  V,  W for  VSCAL; 

U,  V,  W for  VCR  OSS,  VADD,  VSUB,  and  UNITD; 
U,  T,  V for  TFORM 

None 


None 


VCROSS,  VADD,  VSUB,  UNITD,  TFORM 

CDERIV,  INCOND,  SWING,  TAP  for  VSCAL; 
CARKEP,  CDERIV,  INCOND,  QPRINT,  SPRINT, 
SWING  for  VCROSS; 

CDERIV  for  VADD; 

ALBEDO,  CDERIV,  SWING  for  VSUB; 

CDERIV,  THANGD  for  UNITD; 

SPRINT  for  TFORM 

Discussion:  This  is  basically  a package  of  six  subroutines,  each  of  which  per- 
forms an  elementary  operation  in  three  dimensional  space  as  follows: 

Subroutine  VSCAL  magnifies  vector  V by  the  scalar  a; 

W = a V 

Entry  point  VCROSS  performs  a vector  cross-product; 

W = UxV 

Entry  point  VADD  performs  a vector  addition; 

W = U+V 

Entry  point  VSUB  performs  a vector  subtraction; 

W = U-V 

Entry  point  UNITD  computes  the  derivative  vector  W of  the  unit  vector 
associated  with  any  given  vector  U,  where  V = U • is  also  given; 

w=  (U)  = (u  • u)~1//2  [U  - (U  * U)  1(U-  U)U] 


Calling  Argument: 

Referenced  Sub-programs : 
Referenced  Commons: 

Entry  Points: 

Referencing  Sub-programs: 
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Entry  point  TFORM  multiplies  vector  U by  matrix  T to  form  vector  V, 

^ A A 

in  general.  Specifically,  if  i = (i  , i , i ),  j = (j  , j , j ),  and  k = (k  , k , k ) 

xyz  xyz  xyz 

form  an  orthonormal  set  of  vectors  representing  the  axes  of  another  coordinate 
system , then 

V = TU 

generates  the  representation  of  U in  that  other  coordinate  system,  where 

i i i 

xyz 

V \ 

k k k 

xyz 


VSCAL  EXTERNAL  VARIABLES  TABLE 


Description 

Scalar  quantity,  a,  which  multiplies 
Input  vector  to  form  output  vector. 

Transformation  matrix,  T,  which  is 
input  to  entry  point  TFORM. 

General  input  vector. 

General  Input  vector,  except  in  entry 
point  TFORM  where  it  is  the  output 
vector. 

General  output  vector. 


me i *•« 
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hii  tor  or  c r«#f  * mm 


-t 
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